Comparer valeur d'un userform
coudu
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,j'ai créé un userform dans lequel j'ai:
un Textbox1, dans lequel je mets une valeur.
et un Textbox2 dans lequel j'ai deja une valeur( par exemple 4)
J'aimerai que lorsque la valeur du textbox2 est inférieure a celle de la textbox1 alors la textbox 2 ce colorie en rouge.
Merci
un Textbox1, dans lequel je mets une valeur.
et un Textbox2 dans lequel j'ai deja une valeur( par exemple 4)
J'aimerai que lorsque la valeur du textbox2 est inférieure a celle de la textbox1 alors la textbox 2 ce colorie en rouge.
Merci
A voir également:
- Comparer valeur d'un userform
- Comparer prix amazon - Guide
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Valeur ascii - Guide
- Meilleur prix Amazon : payer moins cher avec Amazin'Europe - Accueil - Commerce
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum MacOS
1 réponse
Bonjour,
La réponse de Farfadet hier ne fonctionne pas? :
https://forums.commentcamarche.net/forum/affich-15552852-couleur-de-fond-textbox
If TextBox.Value < 5 Then
TextBox.BackColor = RGB(255, 0, 0)
Else TextBox.BackColor = RGB(255, 255, 255)
A adapter à ton problème d'aujourd'hui...
Adaptation :
Dans VBA, double clic sur ton TextBox2 tu obtiens :
Private Sub TextBox2_Change()
End Sub
Entre ces deux ligne place ce code :
Dim i As Integer, j As Integer
i = TextBox1.Value
j = TextBox2.Value
If j < i Then
TextBox2.BackColor = RGB(255, 0, 0)
Else
TextBox2.BackColor = RGB(255, 255, 255)
End If
Et voilà
La réponse de Farfadet hier ne fonctionne pas? :
https://forums.commentcamarche.net/forum/affich-15552852-couleur-de-fond-textbox
If TextBox.Value < 5 Then
TextBox.BackColor = RGB(255, 0, 0)
Else TextBox.BackColor = RGB(255, 255, 255)
A adapter à ton problème d'aujourd'hui...
Adaptation :
Dans VBA, double clic sur ton TextBox2 tu obtiens :
Private Sub TextBox2_Change()
End Sub
Entre ces deux ligne place ce code :
Dim i As Integer, j As Integer
i = TextBox1.Value
j = TextBox2.Value
If j < i Then
TextBox2.BackColor = RGB(255, 0, 0)
Else
TextBox2.BackColor = RGB(255, 255, 255)
End If
Et voilà
