Discussion :

[cisyac]

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!

[mjpmjp]

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

[unparia]

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

[mjpmjp]

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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