SetFocus sur textbox3

Bonjour à tous.

J'ai encore besoin d'aide afin de comprendre le résultat de mon code.

J'ai textbox 3 et 4 qui demandent des nombres. Textbox4 doit être plus grand que textbox3.
Le résultat de la soustraction de textbox3 - textbox4 s'affiche dans label16

Si le nombre de textbox4 est supérieur à textbox3, j'ai un msgbox afin de corriger la situation.

Voici mes codes:

Code:

---

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

Private Sub TextBox4_AfterUpdate() '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 Label16 < 0 Then MsgBox "Le nombre de kilomètres pour des fins d'affaires est suppérieur au total des kilomètres parcourus", vbOKOnly TextBox4 = "" TextBox3.SetFocus     Exit Sub   End If End Sub

---

Code:

---

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

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)   Select Case KeyAscii Case 48 To 57, 8   Case Else KeyAscii = 0 End Select   If Len(TextBox4.Text) >= 6 Then KeyAscii = 0   End Sub

---

Selon moi, dans le premier code je devrais revenir au textbox3 si label16 < 0 mais non, je passe au textbox suivant.

Quel est mon erreur ?

Merci à l'avance

Bonjour,

Es tu sur que ton code entre dans la condition

Code:

---

If Label16 < 0 Then

---

Oui.

J'ai copié de mon code au site directement

j'ai du mal m'exprimer.

Est ce que tu es sur que ta condition est vrai afin que ton code entre dans la condition.
En gros est ce que le msgbox "Le nombre de kilomètres pour des fins d'affaires est suppérieur au total des kilomètres parcourus" apparait?

Absolument.

J'ai le msgbox + textbox 4 devient vide.

Reste à retourner à textbox3 :cry:

essai de suivre ton code en pas a pas, car comme tu mets a blanc la textbox4, tu decroches vers le début de la procedure AfteUpdate et tu sorts des la premiere condition.
Du coup pas de textbox3.Setfocus

salut

1 et surtout : pour que ton code marche, tous ces contrôles doivent se trouver sur un Userform
Si tel est le cas ; cela marche (testé), même aussi lourd, redondant et peu précis que tu l'as écrit !

Et je parie qu'il s'agit de contrôles placés sur ta feuille (et TextBox4 ne possède alors pas l'évènement AfterUpdate) ! ;)

2 : déjà dit dans 1 : code lourd, redondant et peu précis

Merci à tous...

J'ai repris la totalité de mon code sur ce userform et ça fonctionne.:?