voila j'ai dans un userform des texbox comment faire pour=20
que ce ne soit que des chiffres entier a mettre et quil=20
change la couleur de police suivant la valeur par exemple
si texbox4 et egal a textebox2 =3D police rouge et si=20
texbox4 et egal a textebox2 -1 =3D police couleur verte
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
isabelle
bonjour ptifred,
voici un exemple à adapter,
Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Value) Then TextBox1.Value = "" MsgBox "Vous devez entrer une valeur numérique." Exit Sub End If If TextBox1.Value = TextBox2.Value Then TextBox1.ForeColor = RGB(0, 0, 255) TextBox2.ForeColor = RGB(0, 0, 255) Else TextBox1.ForeColor = RGB(255, 0, 0) TextBox2.ForeColor = RGB(255, 0, 0) End If End Sub
Private Sub TextBox2_Change() If Not IsNumeric(TextBox2.Value) Then TextBox2.Value = "" MsgBox "Vous devez entrer une valeur numérique." Exit Sub End If If TextBox1.Value = TextBox2.Value Then TextBox1.ForeColor = RGB(0, 0, 255) TextBox2.ForeColor = RGB(0, 0, 255) Else TextBox1.ForeColor = RGB(255, 0, 0) TextBox2.ForeColor = RGB(255, 0, 0) End If End Sub
isabelle
merci déja a tout le monde c'est sympa
voila j'ai dans un userform des texbox comment faire pour que ce ne soit que des chiffres entier a mettre et quil change la couleur de police suivant la valeur par exemple si texbox4 et egal a textebox2 = police rouge et si texbox4 et egal a textebox2 -1 = police couleur verte
c'est possible
merci
bonjour ptifred,
voici un exemple à adapter,
Private Sub TextBox1_Change()
If Not IsNumeric(TextBox1.Value) Then
TextBox1.Value = ""
MsgBox "Vous devez entrer une valeur numérique."
Exit Sub
End If
If TextBox1.Value = TextBox2.Value Then
TextBox1.ForeColor = RGB(0, 0, 255)
TextBox2.ForeColor = RGB(0, 0, 255)
Else
TextBox1.ForeColor = RGB(255, 0, 0)
TextBox2.ForeColor = RGB(255, 0, 0)
End If
End Sub
Private Sub TextBox2_Change()
If Not IsNumeric(TextBox2.Value) Then
TextBox2.Value = ""
MsgBox "Vous devez entrer une valeur numérique."
Exit Sub
End If
If TextBox1.Value = TextBox2.Value Then
TextBox1.ForeColor = RGB(0, 0, 255)
TextBox2.ForeColor = RGB(0, 0, 255)
Else
TextBox1.ForeColor = RGB(255, 0, 0)
TextBox2.ForeColor = RGB(255, 0, 0)
End If
End Sub
isabelle
merci déja a tout le monde c'est sympa
voila j'ai dans un userform des texbox comment faire pour
que ce ne soit que des chiffres entier a mettre et quil
change la couleur de police suivant la valeur par exemple
si texbox4 et egal a textebox2 = police rouge et si
texbox4 et egal a textebox2 -1 = police couleur verte
Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Value) Then TextBox1.Value = "" MsgBox "Vous devez entrer une valeur numérique." Exit Sub End If If TextBox1.Value = TextBox2.Value Then TextBox1.ForeColor = RGB(0, 0, 255) TextBox2.ForeColor = RGB(0, 0, 255) Else TextBox1.ForeColor = RGB(255, 0, 0) TextBox2.ForeColor = RGB(255, 0, 0) End If End Sub
Private Sub TextBox2_Change() If Not IsNumeric(TextBox2.Value) Then TextBox2.Value = "" MsgBox "Vous devez entrer une valeur numérique." Exit Sub End If If TextBox1.Value = TextBox2.Value Then TextBox1.ForeColor = RGB(0, 0, 255) TextBox2.ForeColor = RGB(0, 0, 255) Else TextBox1.ForeColor = RGB(255, 0, 0) TextBox2.ForeColor = RGB(255, 0, 0) End If End Sub
isabelle
merci déja a tout le monde c'est sympa
voila j'ai dans un userform des texbox comment faire pour que ce ne soit que des chiffres entier a mettre et quil change la couleur de police suivant la valeur par exemple si texbox4 et egal a textebox2 = police rouge et si texbox4 et egal a textebox2 -1 = police couleur verte
