Fonction validation d'adresse mail

Re bonjour,

C'est encore moi

J'ai trouve sur http://www.excelabo.net cette fonction de Frédéric
Sigonneau
Function EmailValide(sAdresse) As Boolean
Const Accents = "àáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
Dim Test1 As Boolean, Test2 As Boolean, Test3 As Boolean

Test1 = InStr(1, sAdresse, "@") > 0
Test2 = InStr(1, sAdresse, ".") > 0
Test3 = True
For i = 1 To Len(sAdresse)
If InStr(1, Accents, LCase(Mid(sAdresse, i, 1))) > 0 Then
Test3 = False
Exit For
End If
Next
EmailValide = Test1 And Test2 And Test3
End Function

mais je ne sais pas comment la faire fonctionner sur ma cellule b14

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre

Bonjour
Tu places le code dans un module et :
Soit dans ta feuille Excel tu insères la fonction personnalisée EmailValide
en renseignant la cellule B14 pour le paramètre sAdresse soit donc :
=EmailValide(B14)
La fonction te renvoie vrai si l'adresse est valide.
Sinon, tu peux aussi appeler cette fonction dans une macro :
Sub TestF()
Msgbox EmailValide(Range("B14"))
End Sub

Cordialement
Pascal

"Le Surcitaire" <donzel-gargand.jacques-lesurcitaire@tiscali.fr> a écrit dans
le message de news: mn.628b7d538fadccaa.13377@tiscali.fr...

Re bonjour,

C'est encore moi

J'ai trouve sur http://www.excelabo.net cette fonction de Frédéric
Sigonneau
Function EmailValide(sAdresse) As Boolean
Const Accents = "àáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
Dim Test1 As Boolean, Test2 As Boolean, Test3 As Boolean

Test1 = InStr(1, sAdresse, "@") > 0
Test2 = InStr(1, sAdresse, ".") > 0
Test3 = True
For i = 1 To Len(sAdresse)
If InStr(1, Accents, LCase(Mid(sAdresse, i, 1))) > 0 Then
Test3 = False
Exit For
End If
Next
EmailValide = Test1 And Test2 And Test3
End Function

mais je ne sais pas comment la faire fonctionner sur ma cellule b14

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre