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

Staple1600 · 26 Juin 2007

Bonne nuit le forum

Je suis bloqué ici

Code:

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

Code:

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 · 28 Juin 2007

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...

Code:

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 · 28 Juin 2007

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

Re

Merci Spitnolan08

Les solutions les plus simples sont les meilleures

Staple1600 · 28 Juin 2007

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 · 2 Juillet 2007

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)

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

Staple1600

XLDnaute Barbatruc

Spitnolan08

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires

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

Staple1600

XLDnaute Barbatruc

Spitnolan08

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency