concatenate n valeurs

[nanor]

Bonjour,

Je recherche une fonction VBA me permettant de faire ceci:

J'ai une liste de valeurs dans la colonne A. Il n'y a pas forcément de valeur sur chaque ligne.
Je souhaite faire apparaître toutes les valeurs de la colonne A dans une seule cellule (ex: B1) et chaque valeur doit être séparée de l'autre par une virgule.

J'ai pensé mettre une fonction CONCATENATE du type:
=CONCATENATE(A1&','&A2&','&A3&','&A4&','&A5)

Là j'ai 2 problèmes:
- Je peux avoir des centaines de valeurs dans la colonne A donc je n'ai pas envie de saisir une formule de 50 lignes...
- Si je n'ai pas de valeur dans la colonne A, les virgules de la formule apparaîssent quand même...

J'espère qu'il a une solution à ce problème.

Merci bcp.

nanor

 

[PhiBou]

Bonjour Nanor, le Forum

Ce petit code devrait convenir :

Sub Concatene()
Dim Result As String
Dim i As Long
Result = ''
For i = 1 To Range('A65536').End(xlUp).Row
If Cells(i, 1) <> '' Then
Result = Result & Cells(i, 1) & ','
End If
Next i
Cells(1, 2) = Left(Result, Len(Result) - 1)
End Sub

Bonne fin de journée

PhiBou

 

[nanor]

C'est exactement ce que je cherchais!

Merci bcp.

nanor