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
Partager