separe cellule

[bertreng]

bonjour
il y a quelque temps sur le forum on m'a donné ce fichier qui me permetait de séparer toute les adresses se trouvant dans une cellule

les adresses sont dans la cellules A1 de la feeuilles 1 et grace une un code elle se retrouve en feuille 3 chacune dans une cellule en colonne

serait il possible de les extraires de la cellule A 1 sur la feuille 3 mais en ligne le resultat que je souhaite est sur la feuille 2

voir le fichier

merci d'avance [file name=adressemail2.zip size=7076]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/adressemail2.zip[/file]

 

[Jocelyn]

Bonjour le Forum,
Bonjour bertreng,


moi je ne suis vraiment pas doué en VBA mais il me semble que dans ton code si tu change la ligne

.Cells(L + 1, 1).Value = Trim(TabTemp(L))

par

.Cells(1, L + 1).Value = Trim(TabTemp(L))

cela doit fonctionner enfin c'est ce que j'en ai déduit en regardant le code

Bon courage

Jocelyn

 

[Gibson94]

Bonjour Bertreng, le forum,

Tu as juste à modifier dans ton code cette ligne

.Cells(L + 1, 1).Value = Trim(TabTemp(L))

à remplacer par

.Cells(1, L + 1).Value = Trim(TabTemp(L))

Tu remplaces donc 'L + 1' qui correspond à un saut de ligne dans la 1ère formule en le laissant à '1' pour le mettre en saut de colonne dans la 2ème.

Bonne journée

Edition: Bonjour Jocelyn, désolé, je ne t'avais pas vu...

Message édité par: gibson94, à: 14/10/2005 10:19

 

[bertreng]

merci c'etait ça
j'aurai du regarder mieux