Vérifier une adresse mail

Le
michel thiviers
Bonjour,
comment faire en VBA pour vérifier qu'une cellule destinée à une adresse
mail a bien été saisie avec une adresse correcte (xxxxx.xxxx@yyyyyy.zz) au
moins dans sa forme.
Merci d'avance,
Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #6716271
Une façon de faire :

Tu ajoutes la bibliothèque suivante :
fenêtre de l'éditeur de code / barre des menus / outils / références/
et tu coches :
'Microsoft VBScript Regular Expression 5.5

Cela ne vérifie que le format et non la validité de l'adresse.

'------------------------------------
Sub test()
MsgBox ValidEmail("")
End Sub
'------------------------------------

Private Function ValidEmail(eMail As String) As Boolean
Dim MyRegExp As RegExp
Dim myMatches As MatchCollection

Set MyRegExp = New RegExp
MyRegExp.Pattern = "^[a-z0-9_.-]+@[a-z0-9.-]{2,}.[a-z]{2,3}$"
MyRegExp.IgnoreCase = True
MyRegExp.Global = False
Set myMatches = MyRegExp.Execute(eMail)
ValidEmail = (myMatches.Count = 1)
Set myMatches = Nothing
Set MyRegExp = Nothing
End Function
'------------------------------------
Je n'ai plus l'auteur de cette fonction... désolé !




"michel thiviers" OgqrpJ%
Bonjour,
comment faire en VBA pour vérifier qu'une cellule destinée à une adresse
mail a bien été saisie avec une adresse correcte () au
moins dans sa forme.
Merci d'avance,
Michel
francois.forcet
Le #6716711
Salut à toi
Ce code vérifie la présence des 2 points ,de l'@ aprés le 2° point e t
qu'entre les points les données soient présentes
Cellule A1 traité :

If UBound(Split(Range("A1"), ".")) <> 2 Or Split(Range("A1"), ".")(1)
Like "*@*" = False Or Split(Range("A1"), ".")(0) = "" Or
Split(Range("A1"), ".")(1) = "@" Or Split(Range("A1"), ".")(2) = ""
Then
MsgBox (Range("A1") & "-Adresse incorrect")
End If

Une autre solution
Dis moi !!!
Daniel.j
Le #6716691
Bonjour
Il me semble qu'avec Morefun (LL) il y a une fonction de verification de
mail
http://xcell05.free.fr/morefunc/french/

--
Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm

VBAXL
http://dj.joss.free.fr/


"michel thiviers" OgqrpJ%
Bonjour,
comment faire en VBA pour vérifier qu'une cellule destinée à une adresse
mail a bien été saisie avec une adresse correcte () au
moins dans sa forme.
Merci d'avance,
Michel


michel thiviers
Le #6717101
Merci à tous
michel
"michel thiviers" OgqrpJ%
Bonjour,
comment faire en VBA pour vérifier qu'une cellule destinée à une adresse
mail a bien été saisie avec une adresse correcte () au
moins dans sa forme.
Merci d'avance,
Michel


Publicité
Poster une réponse
Anonyme