Autres couleur de texte identique a la couleur de cellule

bardibus · 11 Mai 2020

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 · 11 Mai 2020

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 · 13 Mai 2020

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 · 13 Mai 2020

Bonjour,

VB:

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 · 28 Mai 2020

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 · 29 Mai 2020

Bonjour,

VB:

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

Autres couleur de texte identique a la couleur de cellule

bardibus

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

bardibus

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

bardibus

XLDnaute Nouveau

dg62

XLDnaute Barbatruc

Discussions similaires