[RESOLU]Listes triées et sans doublons en VBA

[leakim]

Bonjour,
J'ai une liste de noms construit comme sur le fichier joint.
Avec une macro, j'aimerai que dans la feuille BDD récupérer les noms en valeur unique, pour chacun des groupes.

Résultat attendu en feuille BDD. En espérant que ma demande est claire.

Cordialement,

Leakim

 

[BOISGONTIER]

Re : Listes triées et sans doublons en VBA

Bonjour,

cf PJ

Sub ListeInverses()
  Set f = Sheets("bdd")
  Set d = CreateObject("Scripting.Dictionary")
  Set d2 = CreateObject("Scripting.Dictionary")
  For Each c In [B2].Resize(Application.CountA([b:b]))
    tmp = c.Value & c.Offset(, 2)
    If c.Value <> "" Then
       If Not d2.exists(tmp) Then d(c.Value) = d(c.Value) & c.Offset(, 2) & "|": d2(tmp) = ""
    End If
  Next c
  ligne = 1: col = 1
  For Each c In d.keys
    f.Cells(ligne, col) = c
    a = Split(d.Item(c), "|")
    f.Cells(ligne, col).Offset(1).Resize(UBound(a) + 1) = Application.Transpose(a)
    col = col + 1
  Next c
End Sub

JB

 

[leakim]

Re : Listes triées et sans doublons en VBA

Bonsoir,
Merci d'avoir traité ce post avec autant rapidité. C'est super, j'ai juste eu à changer B2 en B10 Car j'ai des données entre B1 et B5 qui venaient décaler la mise en colonne.

Merci beaucoup,

Cordialement,
Leakim