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
Bonjour
comment tester le bon format d'une adresse email contenue ds une cellule dans un code VBA.
j'ai voulu utiliser cherche avec worksheetfunction mais erreur .
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
Bonjour
comment tester le bon format d'une adresse email contenue ds une cellule
dans un code VBA.
j'ai voulu utiliser cherche avec worksheetfunction mais erreur .
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
Bonjour
comment tester le bon format d'une adresse email contenue ds une cellule dans un code VBA.
j'ai voulu utiliser cherche avec worksheetfunction mais erreur .
