Bonjour,
je souhaiterais mettre en couleur des cellules, en fonction de la valeur inscrite dans la cellule de droite.
Je joins un exemple pour bien comprendre mon cas.
En fait, je souhaite que si la valeur de la cellule en colonne E7 est "JR", alors, la cellule D7 se met en vert également.
J'ai 4 valeurs possibles pour les couleurs.
Merci pour votre aide.
Amic'
Laurent.
J'ai essayé d'adapter un code trouvé sur un forum, mais ça ne donne rien:
Sub Couleurs()
Dim ZoneModifier As Range
Dim cellule As Range
'Affecte une couleur en fonction de la valeur de la cellule
Set ZoneModifier = Range("E7:E200")
Dim c As Integer
For Each cellule In ZoneModifier
Select Case cellule
Case Is = "JR"
c = 3
Case Is = "SR"
c = 2
Case Is = "SWAT"
c = 4
Case Is = "SA"
c = 46
Case Is = "Mentor"
c = 7
End Select
cellule.Offset(0, -1).Interior.ColorIndex = c
Next
End Sub
je souhaiterais mettre en couleur des cellules, en fonction de la valeur inscrite dans la cellule de droite.
Je joins un exemple pour bien comprendre mon cas.
En fait, je souhaite que si la valeur de la cellule en colonne E7 est "JR", alors, la cellule D7 se met en vert également.
J'ai 4 valeurs possibles pour les couleurs.
Merci pour votre aide.
Amic'
Laurent.
J'ai essayé d'adapter un code trouvé sur un forum, mais ça ne donne rien:
Sub Couleurs()
Dim ZoneModifier As Range
Dim cellule As Range
'Affecte une couleur en fonction de la valeur de la cellule
Set ZoneModifier = Range("E7:E200")
Dim c As Integer
For Each cellule In ZoneModifier
Select Case cellule
Case Is = "JR"
c = 3
Case Is = "SR"
c = 2
Case Is = "SWAT"
c = 4
Case Is = "SA"
c = 46
Case Is = "Mentor"
c = 7
End Select
cellule.Offset(0, -1).Interior.ColorIndex = c
Next
End Sub