Discussion :

[wipMan]

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 :

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

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.

[mercatog]

Le paramètre Cancel est fait pour ça

Code :

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

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

[wipMan]

Parfait, merci.