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 ?
Vent.png
 

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
218

Statistiques des forums

Discussions
313 192
Messages
2 096 068
Membres
106 485
dernier inscrit
Nomes