Discussion :

[eillon]

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.

[jfontaine]

Bon, je me lance.
Pas sur que ce soit simple a comprendre

Recherche des doublons
En C1 tu mets cette formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NB.SI(A:A;B1)>=1;B1;"")

En D1 tu mets cette formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(NB.SI(B:B;A1)>=1;A1;"")

Tu copies ensuite les celles C1 et D1 sur tes 20 000 lignes

Récupération des valeurs unique des doublons

Tu sélectionnes la colonne D que tu copie en valeur a la suite de la colonne C
Ensuite tu utilises le filtre élaboré pour faire une copie sans doublons

Il te faudra peut etre un peu plus d'éclaircissement sur la deuxieme partie. A toi de nous le dire

[eillon]

Je pense que ça marche, le problème c'est que c'est super long...

[jfontaine]

c'est quoi qui est long?

[eillon]

Excel met deux plombes à faire les calculs

[jfontaine]

Tant que c'est moins long qu'a la main ...

[eillon]

Je ne comprends rien, merci quand même.

[cafeine]

de rien, mais ça marche au moins ? si oui, est-ce que c'est rapide ? Tu veux une démo sur ton fichier exemple ?

[Invité]

Bonjour,

Avec Dictionnary:

0,6 secondes pour 2x10000

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Sub Communs()
 t = Timer()
 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)
  MsgBox Timer() - t
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
       mondico2.Add c.Value, c.Value
    End If
  Next c
  i = 1
  For Each c In mondico2
    Cells(i, "M") = c
    i = i + 1
  Next c
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
       mondico2.Add c.Value, c.Value
    End If
  Next c
  i = 1
  For Each c In mondico2
    Cells(i, "P") = c
    i = i + 1
  Next c
End Sub

JB

[eillon]

Pour le coup, c'est très rapide, mais il bloque sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
  i = 1
  For Each C In mondico2
    Cells(i, "D") = C
    i = i + 1
  Next C
End Sub

ddans la deuxième doublons.


Pour répondre à jacques_jean

le but semble être de ne conserver que les valeurs de A qui ne sont pas présentes en B et les valeurs de B qui ne sont pas présentes en A

C'est ça, le but étant de récupérer un fichier propre chaque jour.
Je reçois une liste tous les jours avec des références que je tris avec les anciennes réf, les nouvelles et les communes.

[Invité]

Bonjour Boisgontier,

En effet, très bien, j'ai fait un test et cela fonctionne sans problème.

Juste 2 remarques :

1) Dans la 1ère procédure, j'ai un message d'erreur "457" "Cette clé est déjà associée à un élément de cette collection" sur cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If MonDico1.Exists(c.Value) Then mondico2.Add c.Value, c.Value

2) Une fois ce problème résolu (si problème il y a vraiment) on pourrait appeler la 2ème procédure à petir de la 1ère et la 3ème à partir de la 2ème ?

[Invité]

Re,

J'avais commencé ma réponse précedente puis j'ai dû passer à autre chose.

Je viens de voir que Eillon n'avait également un blocage mais pas au même endroit que moi ?

[eillon]

Effectivement, si elles pouvait s'enchener, ce ne serait pas plus mal...
On te fait travailler un peu, mais tu as l'air d'aimer ça