Extraire email cellule

padrio Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
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

Discussions similaires

Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses