Autres couleur de texte identique a la couleur de cellule

[bardibus]

Bonjour a tous,
Le sujet a déjà été abordé plein de fois mais je n'arrive pas a trouver la solution a mon problème. Je le croyais simple.
Excel étant un coquin, je ne peux utiliser les mises en forme conditionnel car j'utilise différentes version et ca plante.
L'utilisation de VBA est donc la plus simple.
J'ai créé une macro pour remplir la cellule en fonction du résultat.
Non = rouge
oui = vert
VS= Orange
Ca fonctionne parfaitement.
Je voudrais maintenant que le texte soit de la mémé couleur que le fond de cellule.
Peut-on mettre une double conditions sur ma première macro et si non, comment faire ?
Merci a tous

 

[dg62]

Bonjour
Si le texte est de la même couleur que le fond de cellule, je pense que vous aurez un problème de lecture.

 

[bardibus]

Bonjour,
Non justement c'est le but, de ne pas voir ce qu'il y a dessous car simplement une formule.
Je veux juste le visuel de couleur

 

[dg62]

Bonjour,

Sub couleur()

Select Case Range("D4").Value ' exemple

Case "Non"
Range("D4").Font.ColorIndex = 3
Range("D4").Interior.ColorIndex = 3
Case "Oui"
Range("D4").Font.ColorIndex = 4
Range("D4").Interior.ColorIndex = 4
Case "Vs"
Range("D4").Font.ColorIndex = 45
Range("D4").Interior.ColorIndex = 45
End Select

End Sub

 

[bardibus]

Bonjour,
Génial ca marche. Je vais abuser…..
Comment le faire pour une selection de cellules ?
Du genre de la D4 a D250
Merci

 

[dg62]

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4:D250")) Is Nothing Then

Select Case Target.Value ' exemple
    Case "Non"
        Target.Font.ColorIndex = 3
        Target.Interior.ColorIndex = 3
    Case "Oui"
        Target.Font.ColorIndex = 4
        Target.Interior.ColorIndex = 4
    Case "Vs"
        Target.Font.ColorIndex = 45
        Target.Interior.ColorIndex = 45
    End Select
Else
    Exit Sub
End If
End Sub