IF avec TextBox

Bonjour
je ne sais pas si cela se fait, mais j'essaye de mettre une condition sur un textbox et je ne sais pas comment.
Merci pour toute aide
voici, ce que j'essaye de faire!

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox5_Change() If Val(TextBox5 + 100) < Val(TextBox4) Then TextBox7.Value = "OK" Else TextBox7.Value = "Late" End If End Sub

---

Bonsoir,
A la limite, je ne comprends pas pourquoi cette question. Si tu fais un essai, tu constateras que c'est parfaitement licite, avec toutefois un petit bémol.
Si tu effaces le contenu de TextBox5 cela provoquera une erreur de type. Pour éviter cet écueil ajoute en ligne 1 de ta procédure:

Code:

---

If TextBox5 = "" Then Exit Sub

---

Bonjour,
sort le +100 de l'instruction Val utilisèe pour textbox5

Bonjour,

Pour faire simple dans la gestion des valeurs numériques, j'utilise des variables de type Double donc, une erreur est produite si la valeur saisie n'est pas numérique. Si tu veux toi-même gérer la saisie, regarde du coté de "KeyPress" et "KeyDown" pour intercepter la valeur entrée et la modifier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub TextBox5_Change()   Dim Valeur1 As Double Dim Valeur2 As Double   If TextBox4.Text = "" Or TextBox5.Text = "" Then Exit Sub   On Error GoTo Fin Valeur1 = TextBox5.Text Valeur2 = TextBox4.Text   TextBox7.Value = IIf(Valeur1 + 100 < Valeur2, "OK", "Late")   Exit Sub   Fin: MsgBox "Seulement numérique !"   End Sub

---

Hervé.