Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Changer de couleur de texte dans une zone de texte

guy72

XLDnaute Impliqué
Bonjour,
Dans l'image si dessous, j'ai une zone de texte qui avec une macro change de couleur.
VB:
Case Is < 91: R = 250: G = 90: B = 90
Case Is < 101: R = 255: G = 70: B = 50
Case Is > 100: R = 255: G = 55: B = 0
.

Mais, je souhaiterais changer la couleur du texte, qu'il soit en blanc à partir de 60 km/h
Que dois-je faire ?
 

guy72

XLDnaute Impliqué
Bonjour,
Ça fonctionne mais comme ça
Merci

VB:
'Couleur du texte
Shapes("Texte Rafale").Fill.ForeColor.RGB = RGB(R, G, B)
Select Case Target.Value
        Case Is < 60: R = 0: G = 0: B = 0
        Case Is > 60: R = 255: G = 255: B = 255
        End Select
        DrawingObjects("Texte Rafale").Font.Color = RGB(R, G, B)
 

Discussions similaires

Réponses
0
Affichages
352
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…