Création d'une liste séparé par des virgules

[Marc98]

Bonjour à tous,

J'ai besoin de votre aide car mes recherches n'ont pas abouti.

Voilà, pour une sortie entre amis, j'ai un tableau avec deux colonnes: (A)les noms et (B)dans quelle voiture ils iront (autant privilégier le covoiturage!)

Alors voilà, je voudrais avoir une synthèse en fonction de chaque voiture séparés par des virgules.
Par exemple:
voiture 1: Pierre, Paul, Jacques
Voiture 2: Marcel, Remi
etc.
(même si "voiture 1:" est sur une autre cellule)

Vu la puissance d'Excel, j'aurais osé penser qu'une fonction existe mais je ne l'ai pas trouvé alors que je vois des multiples applications possibles.

Même s'il reste le choix de la voiture à changer manuellement, ce n'est pas trop grave (au plus j'en aurais une dizaine)

J'ai essayé de faire des tests. Là, où je m'en approche le plus c'est avec "recherche" mais ça ne me donne que le 1er resultat. Aussi, j'avoue que je ne connais que les bases d'excel.

Merci à tous pour votre aide!

 

[Misange]

Re : Création d'une liste séparé par des virgules

Bonjour

comme tu ne nous dis pas où sont stockés les noms des passagers, les noms des voitures, c'est difficile de t'aider !
regarde la fonction concatener que l'ont peut aussi écrire plus simplement =A1 & ", " & B1 & ... pour mettre le contenu de plusieurs cellules dans une seule.

 

[Marc98]

Re : Création d'une liste séparé par des virgules

Bonjour

comme tu ne nous dis pas où sont stockés les noms des passagers, les noms des voitures, c'est difficile de t'aider !
regarde la fonction concatener que l'ont peut aussi écrire plus simplement =A1 & ", " & B1 & ... pour mettre le contenu de plusieurs cellules dans une seule.

Merci pour ta réponse rapide.

J'ai joint un exemple de ce que j'ai...
C'est simplifié au maximum.

Je vais me renseigner sur la fonction concatener, mais d'après ce que j'ai déjà vu, ça ne semble pas être ce dont j'ai besoin.

 

[TempusFugit]

Re : Création d'une liste séparé par des virgules

Bonjour


Une solution avec une macro

Sub macro()
Dim c As Range
For Each c In Range("B2:B16")
Select Case c
Case 1
v1 = v1 & "," & c.Offset(, -1).Text
Case 2
v2 = v2 & "," & c.Offset(, -1).Text
Case 3
v3 = v3 & "," & c.Offset(, -1).Text
Case 4
v4 = v4 & "," & c.Offset(, -1).Text
Case 5
v5 = v5 & "," & c.Offset(, -1).Text
Case 6
v6 = v6 & "," & c.Offset(, -1).Text
Case 7
v7 = v7 & "," & c.Offset(, -1).Text
End Select
Next c
Range("C1:C7") = Application.Transpose(Array("V1", "V2", "V3", "V4", "V5", "V6", "V7"))
Range("D1") = Mid(v1, 2, 1000)
Range("D2") = Mid(v2, 2, 1000)
Range("D3") = Mid(v3, 2, 1000)
Range("D4") = Mid(v4, 2, 1000)
Range("D5") = Mid(v5, 2, 1000)
Range("D6") = Mid(v6, 2, 1000)
Range("D7") = Mid(v7, 2, 1000)
End Sub

 

[Pierrot93]

Re : Création d'une liste séparé par des virgules

Bonjour,

une autre approche avec un TCD.

bon après midi
@+

 

[Marc98]

Re : Création d'une liste séparé par des virgules

Merci bcp pour vos réponses!

C'est impéccable!!

Franchement, je ne suis absolument pas familier avec les macros... Il faudra que je m'y fasse!

Encore merci pour votre aide et la rapidité de vos réponses!