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

supprimer doublons sur 40000 lignes

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion eillon
  • 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 !

S'inscrire
E

eillon

Guest
Bonjour,

Je recherche un "truc" un peu complexe, sur deux listes de 20 000 lignes, il faut que je dégage les doublons et comparer si les restant appartiennent à la liste 1 ou 2.

Je peux mettre les lignes sur colonnes A et B de la même feuille.

En fait je voudrais déplacer les doublons colonnes A et B en Feuil2 et qu'il reste dans chaque colonne Feuil1 les uniques correspondant aux colonnes.
 

Pièces jointes

Trier par date Trier par votes
Re : supprimer doublons sur 40000 lignes

Bonjour le fil,
suis tout à fait d'accord avec toi bhbh, ça fait pas très plaisir de voir ses macros commentées ailleurs. Ca fait un peu genre ils ont pas trouvé la solution, je vais voir ailleurs😡
Mais bon, on ne sais pas toujours sur qui on tombe.
Merci papapaul, ça fait chaud au coeur🙂

"Edit : jeanpierre, on dirait que je suis de moins bonne humeur que toi"
mdr

Staple1600, la position sss ......... euf?😉
 
Vote positif 0 Vote négatif
Re : supprimer doublons sur 40000 lignes

Je suis vraiment désolé, j'aurais dû en parler plus tôt, j'ai corrigé mon erreur et cité le posteur de la macro sur l'autre forum, j'avais posté sur les deux forum en même temps (à quelques minutes prêts).

Encore toutes mes excuses.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : supprimer doublons sur 40000 lignes

Bonjour


...j'aime aussi la multiprise...


Tréve de plaisanterie


Pour accélérer le code:
Code: 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' le code de ta macro
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
 
Dernière édition:
Vote positif 0 Vote négatif
Re : supprimer doublons sur 40000 lignes

Bonjour,

0,6s pour 2x10.000 éléments:

Code: 
Sub Communs()
 Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In Range([A1], [A65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range([B1], [B65000].End(xlUp))
    If MonDico1.Exists(c.Value) Then mondico2.Add c.Value, c.Value
  Next c
  i = 1
  Range("H1:H" & mondico2.Count) = Application.Transpose(mondico2.items)
End Sub

Non communs1:

Code: 
Sub NonDoublons1()
 Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In Range([A1], [A65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range([B1], [B65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then
       mondico2.Add c.Value, c.Value
    End If
  Next c
  Range("M1:M" & mondico2.Count) = Application.Transpose(mondico2.items)
End Sub

Non Communs2:

Sub NonDoublons2()
 Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In Range([B1], [B65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range([A1], [A65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then
       mondico2.Add c.Value, c.Value
    End If
  Next c
  Range("P1:P" & mondico2.Count) = Application.Transpose(mondico2.items)
End Sub

Bisson
 
Vote positif 0 Vote négatif
Re : supprimer doublons sur 40000 lignes

S'il y a des doublons à l'intérieur de cacule des listes:

Code: 
Sub Communs()
 Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In Range([A1], [A65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range([B1], [B65000].End(xlUp))
    If MonDico1.Exists(c.Value) Then
      If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value
    End If
  Next c
  i = 1
  Range("H1:H" & mondico2.Count) = Application.Transpose(mondico2.items)
End Sub

Sub NonDoublons1()
 Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In Range([A1], [A65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range([B1], [B65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then
       If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value
    End If
  Next c
  Range("M1:M" & mondico2.Count) = Application.Transpose(mondico2.items)
End Sub

Sub NonDoublons2()
 Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In Range([B1], [B65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then MonDico1.Add c.Value, c.Value
  Next c
  Set mondico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range([A1], [A65000].End(xlUp))
    If Not MonDico1.Exists(c.Value) Then
       If Not mondico2.Exists(c.Value) Then mondico2.Add c.Value, c.Value
    End If
  Next c
  Range("P1:P" & mondico2.Count) = Application.Transpose(mondico2.items)
End Sub

Bisson
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2019 Doublons et MFC
2
Réponses
16
Affichages
556
Caninge
A
  • Résolu(e)
XL 2021 Numéroter doublons dans un tableau structuré Pb plage recherche
Réponses
2
Affichages
131
AD74
A
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
364
job75
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
425
safranien
S
Z
  • Résolu(e)
Microsoft 365 Suppression des doublons et lignes vide
Réponses
6
Affichages
324
zilio
Z
Y
  • Question Question
XL 2021 Doublons
Réponses
7
Affichages
272
job75
P
  • Résolu(e)
XL 2021 Identifier lignes des doublons dans message Box
Réponses
5
Affichages
436
pierrof
P
E
  • Question Question
XL 2021 Doublons
Réponses
1
Affichages
373
sylvanu
  • Question Question
XL 2021 Doublons
Réponses
2
Affichages
531
JohnBill
B
  • Résolu(e)
XL 2019 Recherche les doublons
Réponses
4
Affichages
435
mapomme
  • Question Question
Microsoft 365 Commande VBA pour supprimer plusieurs lignes d'un tableau structuré
Réponses
7
Affichages
465
mapomme
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
741
Musbek
M
  • Résolu(e)
Microsoft 365 Recherche sur plusieurs Feuilles
2
Réponses
18
Affichages
829
lcouaci
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
357
p'tit vieux
J
  • Question Question
XL 2016 Garder que les doublons de 2 colonnes
Réponses
8
Affichages
530
julien81
J
F
  • Résolu(e)
XL 2021 recherche doublons dans colonne puis suppression des lignes
Réponses
5
Affichages
699
ftpo69
F
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
1 K
safranien
S
  • Résolu(e)
Microsoft 365 👉 Listes déroulantes dépendantes d'une seule colonne
Réponses
1
Affichages
336
3xceln4ute
B
  • Résolu(e)
XL 2013 Regrouper des listes de noms et prénoms
Réponses
7
Affichages
773
Birobi
B
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
427
DAVID-44-
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…