Fusionner des lignes + ajout caractères

Fred0o

XLDnaute Barbatruc

• 11 Mars 2011

• #2

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 :

VB:

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+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 11 Mars 2011

• #3

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".

Cliquez pour agrandir...

voir fichier joint

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

à+
Philippe

 

Pièces jointes

• 111.zip

  29.9 KB · Affichages: 36
• 111.zip

  29.9 KB · Affichages: 38
• 111.zip

  29.9 KB · Affichages: 44

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 11 Mars 2011

• #4

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

 

Dernière édition: 11 Mars 2011

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 11 Mars 2011

• #5

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

 

Pièces jointes

• Temp.zip

  28.7 KB · Affichages: 34
• Temp.zip

  28.7 KB · Affichages: 38
• Temp.zip

  28.7 KB · Affichages: 36

Vote positif 0 Vote négatif

A

Aurel196

Guest

• 11 Mars 2011

• #6

Re : Fusionner des lignes + ajout caractères

Ca marche impec !!! merci !

 

Vote positif 0 Vote négatif

A

Aurel196

Guest

• 12 Mars 2011

• #7

Re : Fusionner des lignes + ajout caractères

phlaurent55 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif