XL 2016 SetFocus et AfterUpdate

[Goose]

Bjr voici un bout de code ou je ne comprends pas pourquoi le Setfocus ne fonctionne pas avec l’événement AfterUpdate dans une textbox ?

Private Sub TB_Email_AfterUpdate()
If InStr(TB_Email, "@") = 0 Or InStr(TB_Email, ".") = 0 Then
MsgBox "Veuillez saisir une adresse mail valide."
TB_Email = ""
TB_Email.SetFocus
End If
End Sub

peut être changer d'événement ?
bye

 

[Dranreb]

Bonjour.
Effectivement l'évènement Exit serait mieux car il prévoit un ByVal Cancel As MSForms.ReturnBoolean qui peut être mis à True pour rester dans la TextBox. AfterUpdate c'est plutôt: après mise à jour avérée correcte.

 

[Goose]

Merci mais cela ne fonctionne pas !!
faut-il changer le code ?
si oui quoi ?

 

[Dranreb]

Joignez le classeur où ça ne marche pas.

 

[Goose]

ok je fais ça demain !!
bonne soirée

 

[Goose]

c bon j'ai rajouté
Cancel = True et supprimé setfocus
bye