Autres couleur de texte identique a la couleur de cellule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bardibus

XLDnaute Nouveau
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
 
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
 
Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour