Extraire doublons

Robert

XLDnaute Barbatruc

Repose en paix

• 8 Novembre 2011

• #2

Re : Extraire doublons

Bonjour Fmartini, bonjour le forum,

Et si tu mettais un petit fichier exemple avec juste un poignée de données ? On pourrait ainsi tester ce que l'on te propose fonctionne avant de te l'envoyer. Sans être obliger le recréer ton environnement nous-même...

Regarde ici tu devrais trouver ton bonheur.

 

Dernière édition: 8 Novembre 2011

Vote positif 0 Vote négatif

F

fmartini

XLDnaute Nouveau

• 8 Novembre 2011

• #3

Re : Extraire doublons

Oui pardon fichier ci-joint

Merci bcp

 

Pièces jointes

• Tél Def - Copie.xlsx

  201.4 KB · Affichages: 115

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 8 Novembre 2011

• #4

Re : Extraire doublons

Bonsoir,

Code:

Sub TphSD()
  Set f1 = Sheets("appels du mois")
  Set f2 = Sheets("extraction sans doublons")
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In f1.[H2:S35]
    If c.Text <> "" Then mondico(c.Text) = mondico(c.Text) + 1
  Next c
  f2.[a2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
  f2.[b2].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
End Sub

JB

 

Dernière édition: 8 Novembre 2011

Vote positif 0 Vote négatif

F

fmartini

XLDnaute Nouveau

• 8 Novembre 2011

• #5

Re : Extraire doublons

Super merci beaucoup

 

Vote positif 0 Vote négatif