VBA: vérifier validité email (saisie dans TextBox)

[Staple1600]

Bonne nuit le forum


Je suis bloqué ici

Private Sub CommandButton1_Click(
If InStr(TextBox1, "@") = 0 Or _
InStr(TextBox1, ".") = 0 Or _
Len(TextBox1) < 7 Then
MsgBox "L'adresse email saisie n'est pas valide",vbCritical,"Erreur"
End If
End Sub

Ce code fonctionne si l'adresse est du type "nom@domaine.com"
mais ne gère pas les saisies du type

"toto@rr@toto.fr"
"t..tot@to..fr"

et ne tiens pas compte des caractères interdits.

J'ai également tente cette voie

If Not TextBox1 Like "*@*.**" _
Or Not TextBox1 Like "*@*.***" _
Or TextBox1 Like "*[/]*" Then MsgBox " email invalide"
'ca m'embete de lister tous les caratcères interdits
' de cette façon

Qui aurait une piste (ou une solution clé en mains)?

Merci et bonne nuit

 

[Spitnolan08]

Re : VBA: vérifier validité email (saisie dans TextBox)

Re,

Si on ouvre une deuxième fois le classeur
ca produit une erreur ("cochage" une deuxième fois)

Aussi, juste pour ne pas laisser Staple1600 cogiter tout seul...

Private Sub WorkBook_Open()[COLOR=Green]
'***Ajoute la référence Microsoft VBScript Regular Expressions 5.5
[COLOR=Black]Dim compo As Object[/COLOR][/COLOR]
Dim X As String, Y As String

Y = "VBScript_RegExp_55"[COLOR=Green] '***Nom de la référence[/COLOR]
X = "C:\WINDOWS\System32\vbscript.dll\3" [COLOR=Green]'***Chemin d'accès de la référence

[/COLOR] [COLOR=Green] '***Décoche la référence si elle est déjà cochée[/COLOR]
For Each compo In ThisWorkbook.VBProject.References
    If compo.Name = Y Then ThisWorkbook.VBProject.References.Remove compo
Next
[COLOR=Green] '***Coche la référence[/COLOR]
ThisWorkbook.VBProject.References.AddFromFile X
End Sub

permet de résoudre le problème

Cordialement

 

[Staple1600]

Re : VBA: vérifier validité email (saisie dans TextBox)

Re

Merci Spitnolan08

Les solutions les plus simples sont les meilleures

 

[Staple1600]

Re : VBA: vérifier validité email (saisie dans TextBox)

Rebonsoir à tous

Je suis coincé

J'ai tout essayé

Du Private du Public

Les fonctions dans un module

Les fonctions dans ThisWorkBook, les Call Macro

Et rien de ce que je crois qu'il doit se produire dans
WorkBook_Open ne fonctionne 😕

Je ne comprends pas ou est mon erreur

Pourriez-vous regarder le code du fichier ci-joint svp?

Merci.

 

[Staple1600]

Re : VBA: vérifier validité email (saisie dans TextBox)

Bonsoir à tous


J'ai beau cherché et essayer et essayer encore.


Rien n' y fait. J'en suis toujours au même point.

Je ne trouve pas ou est l'erreur.


Personne pour m'aiguiller,svp?


(cf. voir code VBA dans pièce jointe du précédent message)