XL 2019 Evenements textbox

[yll92300]

Bonjour,
J'ai développé une application de gestion de contacts avec un user form.
Certains evenements sur les textbox fonctionnent d'autre pas, je n'arrive pas à comprendre pourquoi.
Voici deux exemples:

Private Sub TextBox_22_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Champ email
email = TextBox_22
If email Like "*@*" And email Like "*.*" Then 'Email valide
Label_outlook.Visible = True
Exit Sub
Else 'Vide ou autre texte
Label_outlook.Visible = False
MsgBox "Veuillez saisir un mail valide !", vbCritical
TextBox_22.Value = ""
TextBox_22.SetFocus
End If

End Sub
Ne se declenche pas

Celle là se décleche:
Private Sub TextBox_17_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'N° de bureau de vote
If TextBox_17 <> "" Then
BD_DONNEES.Range("E1") = Val(TextBox_17)
TextBox_18 = BD_DONNEES.Range("G1").Value
TextBox_19 = BD_DONNEES.Range("H1").Value
Else
TextBox_18 = ""
TextBox_19 = ""
End If
End Sub

Merci d'avance.

 

[Robert]

Bonjour yll, bonjour le forum,

J'ai testé vite fait chez moi avec une userform et deux texboxes et je n'ai pas de problème, ça se déclenche...
Sinon, dans l'événement Exit d'une textbox, le focus est encore dans cette textbox. Remplace :

TextBox_22.SetFocus

par :

Cancel = True

Ensuite, quand tu écris :

TextBox_22.Value = ""

Cela relance l'événement Change de TextBox_22. N'ayant pas tout le code nous ne pouvons pas savoir si le problème pourrait venir de là...
Pour savoir si le code se déclenche il te faut mettre un point d'arrêt sur la première ligne du code [F9], puis l'exécuter pas à pas [F8]...
Pour nous faciliter la lecture, utilise les balises de code "</>"

 

[yll92300]

Merci pour ta réponse. J'avais bien sur utilisé les points d'arrêt, ce ce qui m'a ammené à poster sur ce forum. Je vais tester avec un nouveau user form, pour voir si ça résout le problème.

 

[yll92300]

Robert, J'ai solutionné mon problème, avant de me giffler copieusement: les noms de mes contrôles étaient différents sur le formulaire et dans mes SUB: TextBox_13 (formulaire) et TextBox13 (SUB)....
Merci de toute façons pour ta réponse rapide et pour le "cancel=true".