couleur auto par Macro

[titin]

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.

 

[Arnaud]

tu veux que le changement de couleur se face selon la formule ou le résultat de la formule ????

si c la formule : écris Select Case Target.Formula ou lieu de Select Case Target.Value

 

[titin]

merci de t'interresser à mon problème.

je veux que le changement de couleur se face sur le résultat .

Cette formule :
=SI(F35="";"";INDEX(Cycle;MOD(F35-$B$6+Démarrage;42)+(MOD(F35-$B$6+Démarrage;42)=0)*42))
me donne le résultat "PS3/2" je veux la cellule de "PS3/2" en rouge

cette formule :
=INDEX(Cycle;MOD(J17-$B$6+Démarrage;42)+(MOD(J17-$B$6+Démarrage;42)=0)*42)
me donne le résultat "S1" je veux la cellule de "S1" en jaune

ainsi de suite pour 6 conditions