XL 2016 SetFocus et AfterUpdate

Goose · 4 Juillet 2022

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 ?

VB:

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 · 4 Juillet 2022

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 · 4 Juillet 2022

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

Dranreb · 4 Juillet 2022

Joignez le classeur où ça ne marche pas.

Goose · 4 Juillet 2022

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

Goose · 4 Juillet 2022

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

XL 2016 SetFocus et AfterUpdate

Goose

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Goose

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Goose

XLDnaute Occasionnel

Goose

XLDnaute Occasionnel

Discussions similaires