Discussion :

[dlight]

Bonjour à tous.

Voici mon petit bot de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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)

[dlight]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?