C
carloside
Guest
Bonjour à tous,
J'ai debuté hier Excell et je cherches désèspérement comment concatener un grand nombre de cellules. Ne connaissant pas grand'chose en macro VBA, j'ai trouvé et modifié celle-ci :
Function TXT_Concatenation(Plage2Concatenate As Range) As String
For Each cl In Plage2Concatenate: txt = txt & IIf(cl.Text <> "", cl.Text & " ", ""): Next cl: TXT_Concatenation = IIf(Right(txt, 1) = " ", Mid(txt, 1, Len(txt) - 1), txt)
End Function
Sub Cell_TXT_Concatenation()
ActiveCell = TXT_Concatenation(Range("D1:I1"))
End Sub
Cela fonctionne pour concatener dans la cellule choisie ( par ex : pour A2, les chaînes de caractère contenue dans D2 jusque I2, pour A3 D3 jusqu a I3 etc...)
Je souhaiterais appliquer cela a toutes mes lignes de la colonne A (j'en ai + de 11000)
En esperant avoir été clair.
Merci d'avance
J'ai debuté hier Excell et je cherches désèspérement comment concatener un grand nombre de cellules. Ne connaissant pas grand'chose en macro VBA, j'ai trouvé et modifié celle-ci :
Function TXT_Concatenation(Plage2Concatenate As Range) As String
For Each cl In Plage2Concatenate: txt = txt & IIf(cl.Text <> "", cl.Text & " ", ""): Next cl: TXT_Concatenation = IIf(Right(txt, 1) = " ", Mid(txt, 1, Len(txt) - 1), txt)
End Function
Sub Cell_TXT_Concatenation()
ActiveCell = TXT_Concatenation(Range("D1:I1"))
End Sub
Cela fonctionne pour concatener dans la cellule choisie ( par ex : pour A2, les chaînes de caractère contenue dans D2 jusque I2, pour A3 D3 jusqu a I3 etc...)
Je souhaiterais appliquer cela a toutes mes lignes de la colonne A (j'en ai + de 11000)
En esperant avoir été clair.
Merci d'avance