Excel VBA/convertir mes données d'une colonne en 1 seule cellule Résolu/Fermé

Question

Bonjour, avant de faire ma demande, j'ai effectués quelques recherche sur le forum, mais je n'ai rien trouvé qui pourrait m'aidé.

En gros, ce que j'aimerais faire est de prendre les données de la colonnes A et transférer ceux-ci en une seule cellule et que chacune des données soient séparer par une virgule.

EX:

Cell A1 = 3009784
Cell A2 = 3030033
Cell A3 = 5003601

J'aimerais pouvoir à l'aide d'une macro transférer mes données en une seule cellules afin d'obtenir ce format "3009784,3030033,5003601"

Maintenant, je sais que je pourrais utiliser cette formule: =A1&","&A2&","&A3",", mais je ne peux pas faire ainsi, car ma colonne A contient plusieurs cellule et les données sont rattaché à une base de données, alors à toute les fois que je la met à jours, mon nombre de cellule dans ma colonne est très volatile, le pourquoi que j'aimerais savoir s'il existe la possibilité de créer une application VBA qui me permettrait de produire l'action que je recherche.

Laissez moi savoir si vous pouvez me venir en aide, merci à l'avance!

jordane45 · Answer

Bonjour,

Code à placer dans un MODULE

Function concatPlage(Plg As Range) As String
Dim strCnt As String
strCnt = ""
For Each Cel In Plg
 strCnt = strCnt & Cel.Value & ","
Next
concatPlage = strCnt
End Function
 
 
Puis, pour l'utiliser, ça marche comme pour une fonction excel....
Dans une cellule tu mets  =concatPlage(A1:A4)

A1:A4 étant ici la plage de cellules contenants les valeurs à concaténer..

supraman46 · Answer

Bonjour Jordane45,

Ca fonctionne à merveille, merci beaucoup pour ton aide de m'avoir fourni le code!