extraire email cellule

Question

Bonjour, 

question:

dans des cellules j'ai des infos comme celle ci 
van. nieuwenhuijzen, %jan. %,"jan.","jan.van.nieuwenhuijzen@gmail.com"

Or j'aimerais EXTRAIRE l'adresse email 
jan.van.nieuwenhuijzen@gmail.com

et supprimer le reste...
comment faire ?
merci
pascal 

Configuration: Windows / Chrome 92.0.4515.131

Zoul67 · Answer

Bonjour,

En fonction personnalisée :
Function adresse_mail(s As String)
    Dim Tableau() As String
    Dim i As Integer
    Tableau = Split(s, """")
    For i = 0 To UBound(Tableau)
        If InStr(Tableau(i), "@") > 0 Then
        adresse_mail = Tableau(i)
        Exit For
        End If
    Next i
End Function

A+

Extraire email cellule

1 réponse

Discussions similaires

Newsletters