Copie de colonne en ligne + séparateur

Mobydoux · 8 Février 2012

Bonjour,

Après quelques tentatives ratées de création de macro, je reviens vers vous.
Je cherche à copier le contenu des cellules d'une colonne (A1) sur une ligne (A1 de la feuille 2). Les valeurs doivent être séparées par des virgules.
Ce qui donnerait sur la cellule A1 de la feuille 2 :

Paul,Pierre,Michel,Roger,Géraldine

Quelqu'un aurait-il une petite piste ?

P.S. ci-joint le fichier de base.

Merci par avance !

hoerwind · 8 Février 2012

Re : Copie de colonne en ligne + séparateur

Bonjour,

Par une fonction complémentaire de Morefunc (à télécharger gratuitement sur la toile, avec beaucoup d'autres) :
=MCONCAT(Feuil1!A1:A5;",")

ce qui équivaut à :
=Feuil1!A1&","&Feuil1!A2&","&Feuil1!A3&","&Feuil1!A4&","&Feuil1!A5

Pierrot93 · 8 Février 2012

Re : Copie de colonne en ligne + séparateur

Bonjour,

une approche vba :

Code:

With Sheets("Feuil1")
    Sheets("Feuil2").Range("A1").Value = Join(Application.Transpose _
        (.Range("A1", .Range("A65536").End(xlUp)).Value), ",")
End With

bonne journée
@+

Mobydoux · 8 Février 2012

Re : Copie de colonne en ligne + séparateur

Merci à vous deux pour ces solutions, ça fonctionne impec', je vais ajuster de mon côté

Bonne journée !

Copie de colonne en ligne + séparateur

Mobydoux

XLDnaute Nouveau

Pièces jointes

hoerwind

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Mobydoux

XLDnaute Nouveau

Discussions similaires