Bonjour,
Je viens enfin de finir la réalisation d'un code VBA (chose que je n'avais jamais fait) pour colorier une ligne selon le remplissage d'une cellule.
Mon code fonctionne, si je rempli les cases maintenant. Mais mon fichier est déjà rempli et la coloration ne s'effectue pas sauf si je retape ce qu'il y a dans la cellule.
Est-ce mon code qui n'est pas bon ou tout simplement est-ce qu'un code VBA n'est pas applicable sur de l'existant
Je vous remercie par avance de votre aide
Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Private Sub Worksheet_Change(ByVal Target As Range) Dim lig As Byte, plage As Range If Intersect(Target, Range("B21:C5000")) Is Nothing Then: Exit Sub lig = Target.Row Set plage = Range(Cells(lig, 1), Cells(lig, 8)) Select Case Target Case Is = "D" plage.Interior.ColorIndex = 15 Case Is = "NA" plage.Interior.ColorIndex = 16 Case Is = "C" plage.Interior.ColorIndex = 10 Case Is = "NC" plage.Interior.ColorIndex = 3 Case Is = "AV" plage.Interior.ColorIndex = 42 Case Else plage.Interior.ColorIndex = -4142 End Select End Sub
Partager