Forcer la saisie d'une adresse e-mail dans un texbox excel vba

Salut les experts,

aidez à résoudre mon problème en excel vba qui consiste à forcer l'utilisateur à saisir une adresse e-mail d'un TexBox
Merci d'avance!

bonjour,
1) contrôler le "format" , la "validité" du contenu
2) si c'est ok tu mets à "true" une "variable Booléan" par exemple AdressMailVailde = True

et tu teste avec :
if AdressMailVailde then ....continu
ou inversement
if Not AdressMailValide Then ....repose question

@+JP

Bonjour
https://www.developpez.net/forums/d2...adresse-email/

bonjour,

Masque de saisie pour une adresse email : LIEN

Comment vérifier avec une formule qu'une adresse mail est valide ? : LIEN

How to use Regular Expressions (Regex) in Microsoft Excel : LIEN

VBA: Vérifier la validité d’une adresse e-mail : LIEN

@+JP

bonsoir
essaie de taper autre chose q'une chaine xxxx@xxx.xx

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 And Not TextBox1 Like "*@*.*" Then MsgBox "hop hop hop recomence" End Sub Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Chr(KeyAscii) = "." And Not TextBox1 Like "*@*" Then MsgBox "hop hop hop recomence"   End Sub

---