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

Résolu
supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
supraman46 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -
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 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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   Statut Membre Dernière intervention   1
 
Bonjour Jordane45,

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