Coloration de TEXTBOX selon valeur

Bonjour,

Voici mon problème, j'ai des TEXTBOX dans un USERFORM et je souhaite les colorer suivant les valeurs qui vont s'afficher à l'intérieur.

J'arrive à les faire fonctionner mais pas tout à fait comme je voudrais.

Voici ce que j'écris dans mes TEXTBOX :
Afin de les colorer suivant si le contenant est égal à 1 ou à 2.

Private Sub TextBox1_Change()
Select Case Left(TextBox1.Value, Len(TextBox1.Value) - 1)
       Case Is = 2
            TextBox1.BackColor = RGB(88, 38, 126)
            TextBox1.ForeColor = vbWhite
        Case Is = 1
            TextBox1.BackColor = RGB(141, 66, 198)
            TextBox1.ForeColor = vbWhite
    End Select
End Sub

Voici ce que j'écris pour remplir mes TEXTBOX :

TextBox1.Value = Format(Sheets("Calculs").Range("A1"), "0.0")

Le problème vient d'ici je pense, je souhaiterai que le chiffre soit entier dans la TEXTBOX et pas à virgule ( 1 plutôt que 1,0 ).

Mais le code ne fonctionne pas si j'y affiche une valeur sans virgule :

TextBox1.Value = Format(Sheets("Calculs").Range("A1"), "0")

ou

TextBox1.Value = Format(Sheets("Calculs").Range("A1"), "")

Je vous remercie par avance.

Commercialement.

Olivier

Bonjour Olivier TP

Peut-être comme ceci

Private Sub TextBox1_Change()
Select Case Me.TextBox1.Value
       Case Is = 2
            TextBox1.BackColor = RGB(88, 38, 126)
            TextBox1.ForeColor = vbWhite
        Case Is = 1
            TextBox1.BackColor = RGB(141, 66, 198)
            TextBox1.ForeColor = vbWhite
    End Select
End Sub

@+

Ça fonctionne ^^
Merci beaucoup et bonne journée à toi