Coloration Textbox sous condition

Bonjours,

Jusqu'à présent je cherchais à colorer mes Textbox suivant la valeur à l'intérieur.

Private Sub TextBox182_Change()
Select Case Me.TextBox182.Value
       Case 100 To 90
            TextBox182.BackColor = RGB(88, 38, 126)
            TextBox182.ForeColor = vbWhite
       Case 89.9 To 80
            TextBox182.BackColor = RGB(112, 48, 160)
            TextBox182.ForeColor = vbWhite
       Case 79.9 To 60
            TextBox182.BackColor = RGB(141, 66, 198)
            TextBox182.ForeColor = vbWhite
       Case 59.9 To 1
            TextBox182.BackColor = RGB(170, 114, 212)
            TextBox182.ForeColor = vbWhite
        Case Is = 0
            TextBox182.BackColor = RGB(193, 152, 224)
            TextBox182.ForeColor = vbWhite
    End Select
End Sub

Maintenant je souhaiterai les colorer en fonction de la valeur d'une cellule de mon classeur :

A1 de Feuil1(Exercices).

Je vous remercie par avance.

Cordialement.

Essaye ça !

Private Sub TextBox182_Change()
Select Case worksheets("Exercices").Range("A1")
       Case 90 To 100
            TextBox182.BackColor = RGB(88, 38, 126)
            TextBox182.ForeColor = vbWhite
       Case 80 To 89.9
            TextBox182.BackColor = RGB(112, 48, 160)
            TextBox182.ForeColor = vbWhite
       Case 60 To 79.9
            TextBox182.BackColor = RGB(141, 66, 198)
            TextBox182.ForeColor = vbWhite
       Case 1 To 59.9
            TextBox182.BackColor = RGB(170, 114, 212)
            TextBox182.ForeColor = vbWhite
        Case Is = 0
            TextBox182.BackColor = RGB(193, 152, 224)
            TextBox182.ForeColor = vbWhite
    End Select
End Sub

Au fait, j'ai inversé les conditions pour qu'elles aillent dans le sens croissant, sinon ça marchait pas !

Au top !!!

Merci beaucoup et bonne fin de journée.

Bonjour,

Je ne connais pas le fichier > je me pose donc la question > peut-il y avoir des valeurs négatives ou supérieures à 100 ?

J'ajouterais donc à la fin du "Select Case" ... un "Case Else" pour gérer les autres cas que ceux du code fourni dans la demande ...

Qu'en dites-vous ?

ric

J'ai fait en sorte que les valeurs ne puissent être comprises qu'entre 0 et 100.

Mais je retiens le "Case Else" pour une prochaine utilisation.

Merci beaucoup.