Lister contenu cellule

[whooki]

Bonjour, à tous. Je souhaiterais lister toutes les adresses email de ma cellule A1 pour les mettre dans une colonne E comme dans mon fichier exmple. A savoir que je dispose d'une multitude d'adresses dans cette cellule A1, qui ont toutes le même format.


Merci par avance.

 

[job75]

Re : Lister contenu cellule

Bonjour whooki,

Voir le fichier joint. La macro :

Private Sub CommandButton1_Click()
Dim txt$, liste, i As Integer
txt = Replace([A1], "'", "")
liste = Split(txt, ";")
Columns(5).Clear
For i = 0 To UBound(liste)
Cells(i + 1, 5) = liste(i)
Me.Hyperlinks.Add Anchor:=Cells(i + 1, 5), Address:="mailto:" & liste(i)
Next
End Sub

A+

 

[whooki]

Re : Lister contenu cellule

Merci beaucoup, c'est exactement ce que je recherchais.

Super sympa.