Trier en colonne et afficher le resultat en ligne

[Guapo33]

Bonjour
Peux ton trier des données en colonne et afficher le résultat en ligne.
Voila je m’explique :
Dans ma colonne A, j'ai des Noms et dans ma colonne B j'ai des prénoms d'enfants, je voudrais faire un tri, si les noms ont plusieurs enfants, Ils faudraient que les prénom des enfants d'un même nom figurent en colonne sur la même ligne au lieu d'être l'un sous l'autre.

exemple :
[table="width: 500, class: grid"]
[tr]
[td][/td]
[td]Avant[/td]
[td]le Tri[/td]
[td]Apres[/td]
[td]le tri[/td]
[/tr]
[tr]
[td][/td]
[td]A[/td]
[td]B[/td]
[td]C[/td]
[td]D[/td]
[/tr]
[tr]
[td]1[/td]
[td]Durand[/td]
[td]Paul[/td]
[td]Durand[/td]
[td]Paul, Pierre[/td]
[/tr]
[tr]
[td]2[/td]
[td]Durand[/td]
[td]Pierre[/td]
[td]Dupon[/td]
[td]Michel[/td]
[/tr]
[tr]
[td]3[/td]
[td]Dupon[/td]
[td]Michel[/td]
[td][/td]
[td][/td]
[/tr]
[/table]

J’espère que mon exemple et compréhensible
Merci encore
Bonne soirée

 

[R@chid]

Re : Trier en colonne et afficher le resultat en ligne

Salut et bienvenu sur XLD,
voir PJ si ca te convient???
Amicalement

 

[BOISGONTIER]

Re : Trier en colonne et afficher le resultat en ligne

Bonjour,

Voir PJ

Sub ListeSansDoublons()
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In Range("a1", [a65000].End(xlUp))
    If Not mondico.exists(c.Value) Then
     mondico(c.Value) = c.Offset(, 1).Value
    Else
     mondico(c.Value) = mondico(c.Value) & "," & c.Offset(, 1).Value
    End If
  Next c
  [C1].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  [D1].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
End Sub

JB

 

[Guapo33]

Re : Trier en colonne et afficher le resultat en ligne

Bonjour
Merci merci a tous les deux, cela me convient très très bien.
Bonne journée
Guapo33