Bonsoir a tous
et il possible de faire changer la couleur de fond d'un
texbox dans un userform selon un resultat
ex
textbox1 =8
textbox2 =6
quant je saisie le texbox2 je voudrais que si le chiffre
est inferieur a texbox1 la couleur de fond du texbox2
change et par contre si est egal qu'il change autre
couleurs mais s'il est superieur qu'il reste normal
J’ai bien trouve ça mais il y a un hic j’ai l’impression qu’il manque un bout de formule
Private Sub TextBox2_AfterUpdate()
Select Case TextBox2.Value
Case Is TextBox2.BackColor = RGB(255, 0, 0) 'rouge
Case Is = TextBox1.Value
TextBox2.BackColor = RGB(0, 255, 0) 'vert
Case Else
TextBox2.BackColor = RGB(255, 255, 255) 'blanc
End Select
End Sub
J'ai mis en rouge la ligne qui semble posé problème
Si quelqu'un pouvais voir ce qui cloche
Amicalement
et il possible de faire changer la couleur de fond d'un
texbox dans un userform selon un resultat
ex
textbox1 =8
textbox2 =6
quant je saisie le texbox2 je voudrais que si le chiffre
est inferieur a texbox1 la couleur de fond du texbox2
change et par contre si est egal qu'il change autre
couleurs mais s'il est superieur qu'il reste normal
J’ai bien trouve ça mais il y a un hic j’ai l’impression qu’il manque un bout de formule
Private Sub TextBox2_AfterUpdate()
Select Case TextBox2.Value
Case Is TextBox2.BackColor = RGB(255, 0, 0) 'rouge
Case Is = TextBox1.Value
TextBox2.BackColor = RGB(0, 255, 0) 'vert
Case Else
TextBox2.BackColor = RGB(255, 255, 255) 'blanc
End Select
End Sub
J'ai mis en rouge la ligne qui semble posé problème
Si quelqu'un pouvais voir ce qui cloche
Amicalement