Inserer une colonne dans une cellule

[célestine]

Bonjour à tous,
j'ai une colonne de 180 lignes et dans chaque ligne un code client.
J'ai besoin que tous les codes clients soient réunis dans une seule cellule et séparés par une virgule.
Je dois rechercher des commandes dans notre programme à l'aide du code client, cela m'éviterait de saisir chaque code client manuellement et me permettrait de gagner énormément de temps.
Remarque: c'est une manip que je suis amenée à faire fréquemment.
Merci d'avance!

 

[RENAUDER]

Re : Inserer une colonne dans une cellule

Bonjour,

A cause de la virguke et je ne sais pourquoi, on est obligé de définir la cellule reçevant les données en format texte, ce qui n'est pas le cas avec le point-virgule.

Sub Test()
    ' On colle le résultat en D1
     Range("D1").Select
    Selection.NumberFormat = "@"
     Range("A2:A180").Select
    For Each cell In Selection
        i = i + 1
        If i = 1 Then
            Cells(1, 4).Value = cell.Value
        Else
            Cells(1, 4).Value = Cells(1, 4).Value & "," & cell.Value
        End If
    Next cell
End Sub

 

[célestine]

Re : Inserer une colonne dans une cellule

Bonjour,

je vous remercie pour m'avoir répondu aussi rapidement.
Hélas, je ne comprends rien de macro et VBA!
Je sais tout juste ouvrir une nouvelle macro dans excel. Si vous avez la patience de m'expliquer pas à pas comment créer une macro, j'en serai ravie!
Mais je comprendrai aussi que cela puisse vous ennuyer...

Merci encore et Bonne Journée.