T
titin
Guest
bonjour à tous
je cherche à colorer des cellules avec plusieurs conditions (6)
j'ai essayer cette macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A15")) Is Nothing Then 'Plage à modifie
Select Case Target.Value
Case Is = "A"
Target.Interior.ColorIndex = 2
Case Is = "B"
Target.Interior.ColorIndex = 3
Case Is = "C"
Target.Interior.ColorIndex = 4
Case Is = "D"
Target.Interior.ColorIndex = 5
Case Is = "E"
Target.Interior.ColorIndex = 6
''''Ajoute autant de Case... que tu veux
End Select
End If
End Sub
Mais le résultat dans les cellules correspond à des formules et non à des lèttres ou nombres (sans le = à....).
comment obtenir qu'une cellule ayant le résultat d'une certaine valeur puisse prendre une certaine couleur?
Merci de votre aide.
je cherche à colorer des cellules avec plusieurs conditions (6)
j'ai essayer cette macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A15")) Is Nothing Then 'Plage à modifie
Select Case Target.Value
Case Is = "A"
Target.Interior.ColorIndex = 2
Case Is = "B"
Target.Interior.ColorIndex = 3
Case Is = "C"
Target.Interior.ColorIndex = 4
Case Is = "D"
Target.Interior.ColorIndex = 5
Case Is = "E"
Target.Interior.ColorIndex = 6
''''Ajoute autant de Case... que tu veux
End Select
End If
End Sub
Mais le résultat dans les cellules correspond à des formules et non à des lèttres ou nombres (sans le = à....).
comment obtenir qu'une cellule ayant le résultat d'une certaine valeur puisse prendre une certaine couleur?
Merci de votre aide.