Probleme de doublons

[maguetlolo]

Bonjour

voici mon probleme: j'ai une liste:

date défaut article
1 08/01/08 145 031753625142698
2 09/01/08 235 031753625154876
3 08/01/08 265 031753625142698
4 12/01/08 658 031753625154486
5 08/01/08 215 031753625142698
6 10/01/08 145 031753625142698

à noter que cette liste peut atteindre 20 000 lignes, voir plus et a plus de colonnes que ca

je voudrais lorsqu'il y a doublon dans 2 colonnes en même temps (colonnes date et charge), supprimer ces doublons (la ligne entiere) en gardant la premiere.

Dans ce cas: les lignes 3 et 5 seraient supprimé. mais pas supprimer la 6 car pas la même date.

voila, j'ai chercher dans le forum, mais aucun sujet ne regle mon probleme.

merci à ceux qui m'aiderons.

 

[BOISGONTIER]

Re : Probleme de doublons

Bonjour,

Respecte l'orde initial.
Rapide si taux de suppression faible (2 s pour 10.000 éléments et taux de suppression de 5%).

Sub OrdreRespectéDictionary()
  ' doublons sur colonnes A et C
  Set MonDico = CreateObject("Scripting.Dictionary")
  Application.ScreenUpdating = False
  i = 2
  Do While Cells(i, "A") <> ""
    If Not MonDico.Exists(Cells(i, "A") & Cells(i, "C")) Then
      MonDico.Add Cells(i, "A") & Cells(i, "C"), 1
      i = i + 1
    Else
      Rows(i).EntireRow.Delete
    End If
  Loop
End Sub

JB

 

[maguetlolo]

Re : Probleme de doublons

Bonjour à tous

Voila, j'ai reussi a tester un peu tout et toutes ces solutions ont chacunes leurs point fort (ou faible) a moi de reflechir un peu et de faire des arrangements ca me feras progresser, merci beaucoup a tous. j'espers pouvoir aider quelqu'un d'autre par la suite avec ce que j'ai appris grace a vous.