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