Lister contenu cellule

whooki · 12 Janvier 2010

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 · 12 Janvier 2010

Re : Lister contenu cellule

Bonjour whooki,

Voir le fichier joint. La macro :

Code:

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 · 12 Janvier 2010

Re : Lister contenu cellule

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

Super sympa.

Lister contenu cellule

whooki

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

whooki

XLDnaute Occasionnel

Discussions similaires

Lister contenu cellule

whooki

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

whooki

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency