Concatenation d'une colonne entière

[jonleboss]

Bonjour à tous,

Est ce quelqu'un saurait comment faire une macro qui fasse la concaténation des valeurs textes des cellules de la colonne A d'un tableau?! (il faudra surement rechercher la dernière cellule pleine...enfin je pense)

Merci d'avance

 

[skoobi]

Re : Concatenation d'une colonne entière

Bonsoir,

voici un exemple de code:

Sub essai()
concac = ""
For Each cellule In Range([A1], [A1].End(xlDown))
    concac = concac & cellule.Value
Next
MsgBox concac
End Sub

 

[wamme]

Re : Concatenation d'une colonne entière

Bonsoir, une macro qui te renvoie la concaténation dans un MsgBox ,
sans prendre en compte les lignes vides:

Sub test()
texte = ""
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) = "" Then
texte = texte
Else
texte = texte & Cells(i, 1).Value
End If
Next i

MsgBox (texte)
End Sub

 

[jonleboss]

Re : Concatenation d'une colonne entière

Merci à vous deux,

Mais je souhaiterais renvoyer cette concaténation dans la cellule B2...Est ce possible?!

Merci d'avance

 

[skoobi]

Re : Concatenation d'une colonne entière

Re bonjour,

voici:

Sub essai()
texte = ""
For i = 1 To Range("A65536").End(xlUp).Row
   If Cells(i, 1) <> "" Then texte = texte & Cells(i, 1).Value
Next i
Range("B2").Value = texte
End Sub