Bonsoir,
J'ai essayé de développer une macro permettant de concatener un nombre de lignes indéfinis dans une cellule spécifique C1. Chaque ligne concaténée dans la Feuille 1 étant séparée avec le point virgule.
Cependant quand 'jexécute la macro seul le point virgule apparait en A2. Aucune donnée n'est concaténée en C1.
Pourriez vous svp m'aider à résoudre ce probleme (voir fichier excel joint).
Merci par avance pour votre aide,
Public Sub aaa()
Dim i As Long, LastLig As Long
Dim LastCol As Integer
Dim j As Byte
Dim CONCA As String
With Sheets("Feuil1")
LastLig = .cells(Rows.Count, 1).End(xlUp).Row
LastCol = .cells(1, Columns.Count).End(xlToLeft).Column
For j = 1 To LastCol 'De la colonne 1 à la colonne LastCol
For i = 1 To LastLig 'On boucle sur le contenu de chaque colonne j et on concatène
CONCA = CONCA & .cells(i, j).Value & ";"
Next i
.cells(LastLig + 1, j).Value = CONCA 'On écrit la valeur après la dernière cellule remplie
CONCA = "" 'On initalise CONCA
Next j
End With
End Sub
J'ai essayé de développer une macro permettant de concatener un nombre de lignes indéfinis dans une cellule spécifique C1. Chaque ligne concaténée dans la Feuille 1 étant séparée avec le point virgule.
Cependant quand 'jexécute la macro seul le point virgule apparait en A2. Aucune donnée n'est concaténée en C1.
Pourriez vous svp m'aider à résoudre ce probleme (voir fichier excel joint).
Merci par avance pour votre aide,
Public Sub aaa()
Dim i As Long, LastLig As Long
Dim LastCol As Integer
Dim j As Byte
Dim CONCA As String
With Sheets("Feuil1")
LastLig = .cells(Rows.Count, 1).End(xlUp).Row
LastCol = .cells(1, Columns.Count).End(xlToLeft).Column
For j = 1 To LastCol 'De la colonne 1 à la colonne LastCol
For i = 1 To LastLig 'On boucle sur le contenu de chaque colonne j et on concatène
CONCA = CONCA & .cells(i, j).Value & ";"
Next i
.cells(LastLig + 1, j).Value = CONCA 'On écrit la valeur après la dernière cellule remplie
CONCA = "" 'On initalise CONCA
Next j
End With
End Sub