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

Signaler
Messages postés
53
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
28 février 2019
-
Messages postés
53
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
28 février 2019
-
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!

2 réponses

Messages postés
29617
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
28 septembre 2020
2 800
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..



Messages postés
53
Date d'inscription
jeudi 21 février 2013
Statut
Membre
Dernière intervention
28 février 2019
1
Bonjour Jordane45,

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