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 ?

 

[wDog66]

Bonjour,

Si j'ai bien compris, il suffit d'utiliser la propriété "ForeColor" qui change la couleur du texte et non du fond

A+

 

[ChTi160]

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

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 !

 

[guy72]

Voici un fichier

 

[ChTi160]

Re
ce que j'ai mis dans ton fichier

- 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

 

[guy72]

Pour : ChTi160
Ça change le fond, mais pas le couleur du texte

 

[ChTi160]

Re
j'ai ca en fin de procédure

ActiveSheet.Shapes("Texte Rafale").TextFrame.Characters.Font.Color = RGB(R, G, B)

jean marie

 

[wDog66]

Ça change le fond, mais pas le couleur du texte

Avez vous lu mon post

 

[ChTi160]

Moi oui !
j'avais utilisé un TextBox sur une feuille et pas un Shape , ca fonctionnait avec Forecolor !
cher moi

ActiveSheet.Shapes("Texte Rafale").ForeColor = RGB(R, G, B)

me renvoie une erreur
Jean marie

 

[Dranreb]

Bonjour.
Information: j'ai un module de classe qui permettrait de calculer des couleurs continues en fonction d'une grandeur.

 

[guy72]

Re
j'ai ca en fin de procédure

ActiveSheet.Shapes("Texte Rafale").TextFrame.Characters.Font.Color = RGB(R, G, B)

jean marie

ActiveSheet.Shapes("Texte Rafale").TextFrame.Characters.Font.Color = RGB(R, G, B)
Pareil

 

[guy72]

Avez vous lu mon post

Oui, mais je ne sais pas ou mettre ça

 

[guy72]

Bonjour.
Information: j'ai un module de classe qui permettrait de calculer des couleurs continues en fonction d'une grandeur.

Pourquoi pas ?

 

[Dranreb]

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.

 

[patricktoulon]

Bonsoir

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