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

Goose · 13 Novembre 2021

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 · 17 Novembre 2021

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

Goose · 17 Novembre 2021

Merci a vous deux c'est exactement ce que je voulais obtenir !!
bye

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

Goose

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

Goose

XLDnaute Occasionnel

Discussions similaires

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

Goose

XLDnaute Occasionnel

Eric C

XLDnaute Barbatruc

Goose

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency