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