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

Résolu/Fermé
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - Modifié par supraman46 le 23/02/2016 à 18:18
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 - 25 févr. 2016 à 16:32
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!
A voir également:

2 réponses

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
24 févr. 2016 à 00:07
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..



0
supraman46 Messages postés 53 Date d'inscription jeudi 21 février 2013 Statut Membre Dernière intervention 15 décembre 2020 1
25 févr. 2016 à 16:32
Bonjour Jordane45,

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