Textbox 4 > textbox3

Bonjour à tous.

Voici mon petit bot de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub TextBox4_Change() 'si il n'y a rien dans les textbox on ne calcule pas If Me.TextBox3.Value = "" Or Me.TextBox4.Value = "" Then Exit Sub Me.Label16.Caption = Me.TextBox3.Value - Me.TextBox4.Value   If Me.TextBox3.Value = "" Or Me.TextBox4.Value = "" Then Exit Sub Me.Label18.Caption = Round(Me.TextBox4.Value / Me.TextBox3.Value * 100, 2)   If TextBox4 > TextBox3 Then MsgBox "Le nombre de kilomètres pour des fins d'affaires est suppérieur au total des kilomètres parcourus", vbOKOnly TextBox3.SetFocus End If     End Sub

---

Les deux premières sections de ce code fonctionnent bien.

la section 3 :

Dans mon textbox3, j'inscrit 20000 et dans textbox4 je veux inscrire un nombre mais dès l'inscription d'un nombre le msgbox apparait.


Quelqu'un pourrait m'explique pourquoi ?

Merci à l'avance

Bonjour,

Ton code étant dans l'evenement change de la textbox, il est normal qu'a chaque modification le code s'enclenche.

Pour que cette section fonctionne, il faut le mettre dans un evenement de sortie de textbox (LostFocus)

Merci encore une fois à vois jfontaine.

Par contre, je croyais que le fait d'indique le focus à textbox4 (J'avais fait l'erreur d'inscrire textbox3, mais je veux vraiment le textbox4) que le curseur serait à nouveau dans textbox4 mais non, il passe au suivant:

Code:

---

1 2 3 4

If TextBox4 > TextBox3 Then MsgBox "Le nombre de kilomètres pour des fins d'affaires est suppérieur au total des kilomètres parcourus", vbOKOnly TextBox4.SetFocus End If

---

Avez-vous une idée ?