Fusionner des lignes + ajout caractères

[Aurel196]

Bonjour à tous,

malgré une recherche acharnée sur le forum, mon problème reste sans réponse, c'est pourquoi je m'en remet à vous.

En fait je dispose d'une colonne contenant une donnée par ligne (1 colonne et 2000 lignes au total). Je souhaiterai obtenir une seule cellule contenant la fusion de ces 2000 lignes, avec à chaque fois l'insertion d'un ";" entre les données.

J'ai trouvé la solution pour faire ca sur plusieurs colonnes, mais pas plusieurs lignes.

Je tiens à préciser que je travaille sur 2003, et que je ne sais même pas où ni comment créer/coller un code "VBA".

Merci à vous

 

[Fred0o]

Re : Fusionner des lignes + ajout caractères

Bonsoir Aurel196 et bienvenue sur le forum

Je ne sais pas te proposer une solution par formule, donc voici un code VBA :

Sub Concat_Colonne()
    NbLignes = [A65536].End(xlUp).Row
    For i = 1 To NbLignes - 1
        Range("C1") = Range("C1") & Range("A" & i) & ";"
    Next
    Range("C1") = Range("C1") & Range("A" & i + 1)
End Sub

Pour le coller, tu fais Click-droit sur l'onglet "Feuil1" puis tu sélectionnes "Visualiser le code". Ensuite, tu colles ce code.

Pour le lancer, tu fais <Alt> + <F8> puis tu choisis "Concat_Colonne".

A+

 

[phlaurent55]

Re : Fusionner des lignes + ajout caractères

Bonjour à tous,

Je tiens à préciser que je travaille sur 2003, et que je ne sais même pas où ni comment créer/coller un code "VBA".

voir fichier joint

question perso: pourquoi tout "rassembler" dans une seule cellule

à+
Philippe

 

[Hippolite]

Re : Fusionner des lignes + ajout caractères

Bonsoir,
avec formule :
mettre en B1 --> =A1
mettre en B2 --> =B1 & "; " & A2
tirer la poignée jusqu'à la ligne 2000
A+

Edit :
Bonsoir FredOo, bonsoir Laurent

 

[ROGER2327]

Re : Fusionner des lignes + ajout caractères

Bonsoir à tous

Une autre solution avec une fonction personnalisée.​

ROGER2327
#5069

Mardi 17 Pédale 138 (Saint Dricarpe, prosélyte, SQ)
21 Ventôse An CCXIX
2011-W10-5T22:51:45Z

 

[Aurel196]

Re : Fusionner des lignes + ajout caractères

Ca marche impec !!! merci !

 

[Aurel196]

Re : Fusionner des lignes + ajout caractères

question perso: pourquoi tout "rassembler" dans une seule cellule

Merci ! Réponse: pour pouvoir tout copier ds un programme texte par exemple, sans avoir le tableau