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

leakim

XLDnaute Occasionnel
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
 

Pièces jointes

  • listes BDD.xlsx
    13.5 KB · Affichages: 35
Dernière édition:

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Listes triées et sans doublons en VBA

Bonjour,

cf PJ

Code:
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
 

Pièces jointes

  • listes BDD-1.xls
    40.5 KB · Affichages: 40
Dernière édition:

leakim

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou