Extraire nom et adresse email

Bonjour,

Je me permet de poser mon problème sur ce forum car j'ai besoin de votre aide.

En effet j'aimerai avoir une macro me permettant d'extraire des caractères précis à partir des colonnes précises.

Ci joint un fichier Excel avec plus de précisions.

Merci d'avance pour vos réponses.

Nessva

11parenthese.xlsx (21.98 Ko)

Bonjour,

Sans macros.

Formules en C2 :

=GAUCHE(A2;CHERCHE(" (";A2)-1)

Formule en D2 :

=STXT(B2;CHERCHE("<";B2)+1;CHERCHE(">";B2)-CHERCHE("<";B2)-1)

A étendre vers le bas pour les autres cas.

Si besoin, un essai en macro (non testé) :

Sub IsolerInfos()

Dim Lig As Long, LigMax As Long

With Sheets("NomFeuille") 'A adapter
    LigMax = .Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 2 To LigMax
        .Range("C" & Lig) = Split(.Range("A" & Lig), " (")(0)
        .Range("D" & Lig) = Replace(Split(.Range("A" & Lig), " <")(1),">","")
    Next Lig
End With

End Sub
Rechercher des sujets similaires à "extraire nom adresse email"