T
titin
Guest
bonjour à tous
je n'arrive pas à utiliser 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
mes cellules à coloriées dépende d'une fonction donc = à.
j'ai remplacé Select Case Target.Formula au lieu de Select Case Target.Value mais cela ne marche pas.
y a t'il une macro pour régler mon problème.
j'ai plus de 5 conditions de mise en couleur.
Merci pour votre aides
je n'arrive pas à utiliser 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
mes cellules à coloriées dépende d'une fonction donc = à.
j'ai remplacé Select Case Target.Formula au lieu de Select Case Target.Value mais cela ne marche pas.
y a t'il une macro pour régler mon problème.
j'ai plus de 5 conditions de mise en couleur.
Merci pour votre aides