Doublons avec plusieurs critères

[chris427]

Bonjour à tous,

Voici un autre problème de doublons. J'ai vu beaucoup de posts sur le sujet, mais aucun exemple correspondant au mien.

Voilà : J'ai un fichier excel que j'obtiens par exportation depuis un logiciel spécifique.

Dans ce fichier, j'ai des doublons (lignes) que je dois supprimer si et seulement si les infos des colonnes B, C et D sont les mêmes. Lorsque c'est le cas, je ne dois conserver qu'une seule ligne d'info. Mais je ne dois rien additionner ou soustraire.

Le document peut faire 100 lignes comme il peut faire 5000 lignes, il est différent chaque jour mais configuré de la même manière.

Pensez-vous qu'il soit possible de faire quelque chose ? ça me sauvrait énormément de temps chaque matin.

Merci

Chris

 

[JeanMarie]

Re : Doublons avec plusieurs critères

Bonsoir

Télécharge cette macro complémentaire de mDF, voici le lien

@+Jean-Marie

 

[JHA]

Re : Doublons avec plusieurs critères

Bonjour,

Une solution avec sommeprod(), et filtre;


JHA

 

[BOISGONTIER]

Re : Doublons avec plusieurs critères

Bonjour,

Sub OrdreRespectéDictionary()
  Set MonDico = CreateObject("Scripting.Dictionary")
  Application.ScreenUpdating = False
  n = [A65000].End(xlUp).Row
  i = 17
  Do While i <= n
    If Cells(i, "B") <> "" Then
      If Not MonDico.Exists(Cells(i, "B") & Cells(i, "C") & Cells(i, "D")) Then
        MonDico.Add Cells(i, "B") & Cells(i, "C") & Cells(i, "D"), Cells(i, "b") & Cells(i, "C") & Cells(i, "D")
        i = i + 1
       Else
          Rows(i).EntireRow.Delete
       End If
    Else
       i = i + 1
    End If
  Loop
End Sub

JB
Formation Excel VBA JB

 

[chris427]

Re : Doublons avec plusieurs critères

Bonjour à tous,

Merci pour vos réponses !
J'ai finalement intégrer la macro de Boisgontier, et ça fonctionne nickel !
Merci !

Chris427