TextBox.SetFocus ne fonctionne pas

yo

Je construis un formulaire sous vba. Je cherche a controler les differentes saisies effectuees dans les textbox.
Pour la premiere, si l'utilisateur ne rentre pas un nombre, un message s'affiche et l'informe qu'il doit se contraindre a ce qu'il lui est demande.

Code:

---

1 2 3 4 5 6 7 8

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value = "" Then ' Si la textbox est vide, alors on affiche un message d'erreur msg = MsgBox("Cette case doit être complétée | Saisir un nombre", vbCritical, "Erreur saisie") ' Puis on se replace dans la textbox pour demander implicitement une saisie Me.TextBox1.SetFocus End If End Sub

---

Le probleme est que ma commande .SetFocus ne fonctionne pas et le focus passe directement a la textbox suivante.

Pouvez-vous m'eclairer sur ce probleme, svp ?

Merci.

Le paramètre Cancel est fait pour ça

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)   If TextBox1.Value = "" Then Cancel = True MsgBox "Cette case doit être complétée | Saisir un nombre", vbCritical, "Erreur saisie" End If End Sub

---

Parfait, merci.