separe cellule

bertreng

XLDnaute Nouveau
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]
 

Pièces jointes

  • adressemail2.zip
    6.9 KB · Affichages: 29

Jocelyn

XLDnaute Barbatruc
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

Nous a quitté
Repose en paix
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
 

Discussions similaires

Réponses
12
Affichages
537
Réponses
12
Affichages
272

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T