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

[guy72]

Bonjour,
Dans l'image si dessous, j'ai une zone de texte qui avec une macro change de couleur.

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]

Bonjour,
Ça fonctionne mais comme ça
Merci

'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)