Philippe LAMACHE
XLDnaute Junior
Bonjour à tous,
J'ai ce petit bout de code (récupéré sur le net) pour concaténer plusieurs cellules en une :
Par contre il me fait des "lignes vides" dans ma cellule concaténée.
Quelqu'un aurait-il la solution pour les supprimer ?
Par avance, merci.
J'ai ce petit bout de code (récupéré sur le net) pour concaténer plusieurs cellules en une :
VB:
Sub Concatener_TXT()
Cells(2, 2).ClearContents
For i = 1 To 50
Cells(2, 2) = Cells(2, 2) & Chr(10) & Cells(i, 1)
Next
Columns("A:B").ColumnWidth = 50
Columns("A:B").AutoFit
End Sub
Par contre il me fait des "lignes vides" dans ma cellule concaténée.
Quelqu'un aurait-il la solution pour les supprimer ?
Par avance, merci.