Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Doublons avec plusieurs critères

  • Initiateur de la discussion Initiateur de la discussion chris427
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chris427

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

Pièces jointes

Re : Doublons avec plusieurs critères

Bonjour,


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

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

E
Réponses
3
Affichages
794
ExcelBeginner
E
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…