TextBox change de couleur Selon la valeur

[Yan]

Bonjour !

J'ai un petit problème

j'aimerais que les Textbox change de couleur selon la valeur écrite

Exemple ... si j’écris 45 dans la textbox1 la valeur doit absolument être égal ou moin dans la textbox2

Mon Code:

Private Sub TextBox2_Change()
If TextBox1.Value < TextBox2.Text Then
TextBox2.BackColor = &HFF&
Else: TextBox2.BackColor = &HFF00&
End If
End Sub

Seul problème si j écrit 45 le textbox deviens rouge avec le 5 6 7 8 9 et les chiffre en haut de 100
j'envoie un petit fichier test

Merci d'avance pour votre aide

 

[Roland_M]

Re : TextBox change de couleur Selon la valeur

bonsoir,

Private Sub TextBox2_Change()
If Val(TextBox1) < Val(TextBox2) Then
TextBox2.BackColor = &HFF&
Else: TextBox2.BackColor = &HFF00&
End If
End Sub

 

[Yan]

Re : TextBox change de couleur Selon la valeur

Excellent Merci !!

Réponse rapide !