XL 2016 Position du SetFocus après Message d'erreur

Goose

XLDnaute Occasionnel
Bonjour à tous,
en partant du code ci-contre:
VB:
Private Sub TB_Email_AfterUpdate()
If InStr(TB_Email, "@") = 0 Or InStr(TB_Email, ".") = 0 Then
MsgBox ("Veuillez saisir une adresse mail valide")
End If
End Sub
Private Sub TB_Email_Change()
Form1.TB_Email = LCase(Trim(TB_Email)) 'LCase=minuscule
End Sub
comment faire en sorte que le curseur reste dans la textbox après avoir valider le message d'erreur ?
je ne sais pas ou mettre le SetFocus !!
Merci d'avance
Bye
 

Eric C

XLDnaute Barbatruc
Re le fil

Maintenant, si Goose veut que sa TextBox soit vidée si l'adresse n'est pas correcte :

VB:
Private Sub TB_Email_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If InStr(TB_Email, "@") = 0 Or InStr(TB_Email, ".") = 0 Then
MsgBox "Veuillez saisir une adresse mail valide."
TB_Email = ""
Cancel = True
End If
End Sub

- Promis, la prochaine fois je teste.
Bonne journée
@+ Eric c
 

Discussions similaires