Extraire email cellule

Fermé
padrio Messages postés 1 Date d'inscription mardi 10 août 2021 Statut Membre Dernière intervention 10 août 2021 - 10 août 2021 à 17:56
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 - 10 août 2021 à 18:10
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

1 réponse

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
10 août 2021 à 18:10
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+
0