Remplissage automatique

[boudoula]

Bonsoir,

je suis à la recherche d'une soluce pour pouvoir faire ceci:

Admettons que j'ai des données des cellules A2 à A20 (le A20 est évolutif car je rajoute des données dans les cellules suivantes)

Je recherche à faire qque chose du genre concatener(A1;' ';A2;...A20)
Jusque là pas de problème.
Mais là ou celà se complique c'est que je n'arrive pas à voir comment inserer automatiquement les nouvelles données A21 etc...

J'ai essayé de passer pa vba même bloquage d'autant plus que je n'ai pas trouvé de fonction équivlente à concatener.

Alorssi qq'un a une idée lumineuse, je suis preneur

Svp aidez moi

D'avance merci

 

[EricV]

Salut Boudoula

Ma solution est peut-être un peu simple mais le résultat est garanti

Dim LigL&, LigF&, Str1$
LigF = Range('A65536').End(xlUp).Row
For LigL = 2 To LigF
Str1 = Str1 & ' ' & Cells(LigL, 1)
Next
Str1 = Trim(Str1)

 

[boudoula]

Merci pout ton aide, mais ça ne fait pas tout a fait se que je souhaite
en effet avec ton code lorsque je copie Str1 dans une cellule celà aligne plusieurs fois le contenu de mes cellules.