Bonjour je suis nouveau et je ne connais pas grand chose au macro...
J'ai trouvé celle ci sur le net qui marche très bien et me convient....
Mais elle ne marche que pour une feuille et j0aimerais qu'elle marche pour tout le classeur...
Comment faire?
1. 'Definition variable
2. Dim modif As Boolean
3.
4. ' Test changement cellule
5. Private Sub Worksheet_Change(ByVal Target As Range)
6. Dim i As Integer
7. ' test si verif en cours
8. If modif Then Exit Sub
9. modif = True
10. ' Boucle sur la colonne
11. For i = 1 To 50
12. Call MEFCond1("A" & i)
13. Next i
14. modif = False
15. End Sub
16.
17. ' <M>ise <E>n <F>orme <Cond>itionnelle <1>
18. Sub MEFCond1(TCell As String)
19. ' Met en majucule la saisie
20. If TypeName(Range(TCell).Value) = "String" Then
21. Range(TCell).Value = UCase(Range(TCell).Value)
22. End If
23. ' Lance le test
24. Select Case Range(TCell).Text
25. Case 1 To 20: Range(TCell).Interior.ColorIndex = 4
26. Case 21 To 30: Range(TCell).Interior.ColorIndex = 6
27. Case 31 To 2000: Range(TCell).Interior.ColorIndex = 3
28. Case "S": Range(TCell).Interior.ColorIndex = 4
29. Case "A": Range(TCell).Interior.ColorIndex = 5
30. Case "M": Range(TCell).Interior.ColorIndex = 6
31. Case "I": Range(TCell).Interior.ColorIndex = 3
32. Case Else: Range(TCell).Interior.ColorIndex = xlNone
33. End Select
34. End Sub
Han, le mec qui aime s'emmerder pour rien !!!! Au lieu de numéroter toi-même tes lignes, encadre ton bout de code avec [code]..[/code], conformément au règlement.
Tu as recopié Sub Worksheet_Change. Recommence mais dans Sub Workbook_Change.
Merci de cette première réponse mais ce n'est pas moi qui ai numéroté comme cela.... car moi je ne connais rien...
Que dois-je faire avec Sub workbook_change
