bonjours a tous
et il possible de faire changer la couleur de fond d'un
texbox dans un userform selon un resultat
ex
textbox1 =5
textbox2 =4
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
y a du boulot n'est ce pas
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Private Sub TextBox2_AfterUpdate() Select Case TextBox2.Value Case Is < TextBox1.Value 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
Cordialement Pascal
"PTIFRED" a écrit dans le message de news:121401c47b6c$709601e0$
bonjours a tous et il possible de faire changer la couleur de fond d'un texbox dans un userform selon un resultat ex textbox1 =5 textbox2 =4 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 y a du boulot n'est ce pas
merci pour tout
Bonjour
Private Sub TextBox2_AfterUpdate()
Select Case TextBox2.Value
Case Is < TextBox1.Value
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
Cordialement
Pascal
"PTIFRED" <FREDERICK.LEFEBVRE@TELE2.FR> a écrit dans le message de
news:121401c47b6c$709601e0$a401280a@phx.gbl...
bonjours a tous
et il possible de faire changer la couleur de fond d'un
texbox dans un userform selon un resultat
ex
textbox1 =5
textbox2 =4
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
y a du boulot n'est ce pas
Bonjour Private Sub TextBox2_AfterUpdate() Select Case TextBox2.Value Case Is < TextBox1.Value 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
Cordialement Pascal
"PTIFRED" a écrit dans le message de news:121401c47b6c$709601e0$
bonjours a tous et il possible de faire changer la couleur de fond d'un texbox dans un userform selon un resultat ex textbox1 =5 textbox2 =4 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 y a du boulot n'est ce pas
merci pour tout
RaMA
Bonjour
Private Sub TextBox2_Change() If TextBox2 > TextBox1 Then TextBox2.BackColor = RGB(255, 0, 0) Else If TextBox2 < TextBox1 Then TextBox2.BackColor = RGB(0, 0, 255) Else TextBox2.BackColor = RGB(255, 255, 255) End If End If End Sub
RaMa
-- . "PTIFRED" a écrit dans le message de news:121401c47b6c$709601e0$
bonjours a tous et il possible de faire changer la couleur de fond d'un texbox dans un userform selon un resultat ex textbox1 =5 textbox2 =4 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 y a du boulot n'est ce pas
merci pour tout
Bonjour
Private Sub TextBox2_Change()
If TextBox2 > TextBox1 Then
TextBox2.BackColor = RGB(255, 0, 0)
Else
If TextBox2 < TextBox1 Then
TextBox2.BackColor = RGB(0, 0, 255)
Else
TextBox2.BackColor = RGB(255, 255, 255)
End If
End If
End Sub
RaMa
--
.
"PTIFRED" <FREDERICK.LEFEBVRE@TELE2.FR> a écrit dans le message de
news:121401c47b6c$709601e0$a401280a@phx.gbl...
bonjours a tous
et il possible de faire changer la couleur de fond d'un
texbox dans un userform selon un resultat
ex
textbox1 =5
textbox2 =4
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
y a du boulot n'est ce pas
Private Sub TextBox2_Change() If TextBox2 > TextBox1 Then TextBox2.BackColor = RGB(255, 0, 0) Else If TextBox2 < TextBox1 Then TextBox2.BackColor = RGB(0, 0, 255) Else TextBox2.BackColor = RGB(255, 255, 255) End If End If End Sub
RaMa
-- . "PTIFRED" a écrit dans le message de news:121401c47b6c$709601e0$
bonjours a tous et il possible de faire changer la couleur de fond d'un texbox dans un userform selon un resultat ex textbox1 =5 textbox2 =4 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 y a du boulot n'est ce pas
