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
 

ChTi160

XLDnaute Barbatruc
Bonsoir le Fil
pas évident ! dommage qu'il n'y est pas de Fichier !
ce que j'ai cru comprendre (les couleurs ne correspondent pas au Code RGB())
VB:
With ActiveSheet.TextBox1
               Select Case True
                      Case .Value = 60: .ForeColor = &HFFFFFF
                      Case .Value < 91: .ForeColor = &HFFFF&     'RGB(250, 90, 90)
                      Case .Value < 101: .ForeColor = &HFFFF00    'RGB(255, 70, 50) 'R = 255: G = 70: B = 50
                      Case .Value > 100: .ForeColor = &HFF&       'RGB(255, 55, 0) 'R = 255: G = 55: B = 0
                End Select
End With
De plus ton TextBox contient "Km/h" ?
Jean marie
Edit : avec un fichier joint tu aurais plus de chance d'avoir des réponses !
 

ChTi160

XLDnaute Barbatruc
Re
ce que j'ai mis dans ton fichier
VB:
- Zone de texte "Vent en rafale"
If Not Intersect(Target, Range("I13")) Is Nothing Then
Select Case Target.Value
Case Is = 0: R = 0: G = 250: B = 250
Case Is < 11: R = 190: G = 240: B = 250
Case Is < 21: R = 120: G = 170: B = 220
Case Is < 31: R = 230: G = 180: B = 180
Case Is < 41: R = 250: G = 152: B = 70
Case Is < 51: R = 192: G = 80: B = 77
Case Is <= 60: R = 230: G = 110: B = 10
Case Is > 60: R = 250: G = 250: B = 250
End Select
a voir
Jean marie
 

Dranreb

XLDnaute Barbatruc
Alors j'ai équipé votre classeur du module de classe et j'en ai appliqué l'utilisation à 2 trucs dont le "Texte Rafale". Je me suis borné à faire en sorte que la couleur de son texte garantisse un bon contraste avec le fond.
 

Pièces jointes

  • CouleurClsGuy72.xlsm
    690.9 KB · Affichages: 2

patricktoulon

XLDnaute Barbatruc
Bonsoir
VB:
'- Zone de texte "Vent en rafale" ----------------------------------------------------------------------
    If Not Intersect(Target, Range("I13")) Is Nothing Then
        Select Case Target.Value

        Case Is = 0: R = 0: G = 250: B = 250
        Case Is < 11: R = 190: G = 240: B = 250
        Case Is < 21: R = 120: G = 170: B = 220
        Case Is < 31: R = 230: G = 180: B = 180
        Case Is < 41: R = 250: G = 152: B = 70
        Case Is < 51: R = 192: G = 80: B = 77
        Case Is < 61: R = 230: G = 110: B = 10
        Case Is < 81: R = 167: G = 62: B = 59
        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
        End Select
        Shapes("Texte Rafale").Fill.ForeColor.RGB = RGB(R, G, B)

        Select Case Target.Value
        Case Is <= 60: R = 255: G = 255: B = 255
        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
        End Select
        DrawingObjects("Texte Rafale").Font.Color = RGB(R, G, B)

    End If
 

Discussions similaires

Réponses
0
Affichages
218

Statistiques des forums

Discussions
313 193
Messages
2 096 080
Membres
106 490
dernier inscrit
fabintou