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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
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" a écrit dans le message de news: 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
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("michel.lukas@wanadoo.fr")
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" <michel.lukas@wanadoo.fr> a écrit dans le message de news:
OgqrpJ%23vIHA.3780@TK2MSFTNGP03.phx.gbl...
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
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" a écrit dans le message de news: 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
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 !!!
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
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
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" a écrit dans le message de news: 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
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" <michel.lukas@wanadoo.fr> a écrit dans le message de news:
OgqrpJ%23vIHA.3780@TK2MSFTNGP03.phx.gbl...
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
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" a écrit dans le message de news: 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
Merci à tous michel "michel thiviers" a écrit dans le message de news: 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
Merci à tous
michel
"michel thiviers" <michel.lukas@wanadoo.fr> a écrit dans le message de news:
OgqrpJ%23vIHA.3780@TK2MSFTNGP03.phx.gbl...
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
Merci à tous michel "michel thiviers" a écrit dans le message de news: 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
