Discussion :

[DeathLighT]

Bonjour,

Toujours grand débutant dans le "codage", je viens vers vous avec une nouvelle question.

J'ai plusieurs feuilles dans un même classeur, issues de trois documents différents.
Je souhaiterai trouver des doublons entre les feuilles, et supprimer les doublons.
Pour celà, je me base sur la colonne C, contenant un identifiant à 9 chiffres.

Dans mon idéal, celà donnerait :

1 identifier les doublons entre feuilles
2 supprimer les dits doublons des feuilles 2 et 3

J'ai vu plusieurs méthodes de recherches, et je me perds dès qu'il s'agit de comparer une liste d'une feuille avec une autre.

Y a-t-il une solution ?
Toute aide est la bienvenue, mes collègues attendant actuellement à proximité de mon bureau, dans cette posture :

Je cherche à automatiser cette opération car la fréquence est bi-mensuelle.

Cordialement, Jérôme D

[patricktoulon]

bonjour

pour comparer les doublons présents sur deux feuille tu pourrais utiliser
les dictionnaires avec des variables tableaux

tu a plusieurs sujet ouvert voir résolu sur la question

tout d'abord dois tu supprimer les doublons présents sur la meme feuille ou pas ?
ou simplement les doublons identiques sur les deux feuilles ?

au plaisir

[Invité]

Bonsoir,
Tu veux une occurrence unique de valeur dans tout le classeur ?
J’ai proposé a plusieurs reprise la Méthode Highlander (il ne peut en rester qu'un), elle est terriblement efficace et peut s’adapter à toutes sorte de problématiques, mais j’ai besoin d’être sur du résultat recherché.

[DeathLighT]

Bonsoir,

Merci pour vos réponses ; je pense creuser la solution du dictionnaire pour voir ce que je peux en sortir pour ma culture générale.

Effectivement, il ne peut en rester qu'un, celui de la feuille 1.
Pour affiner encore, je dirai que si un doublon venait à apparaître entée la feuille 2 et la feuille 3, automatiquement celui de la feuille 3 devrait être supprimé.

Pour précision, il s'agit de tableaux générés par extraction d'une base de données, suivant différents critères. Le critère global nous renvoie 65533 itérations, et les deux autres à peu près 3000. Mes collègues ne sont que trois à reprendre toutes ces itérations pour vérifier les correspondances, avec une moyenne de 3 minutes par traitement. Comprenez donc l'importance de virer les doublons.

Je pencherai donc en faveur de la solution Highlander, afin de leur faciliter au plus vite la tâche.

Merci à vous.

[Invité]

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
Dim Doublon As Collection
Sub Scan()
Dim RowsSup() As String
Dim L As Long
Dim Linge As Long
Dim MyRange As Range
Dim C As Long
Dim Feuille As Worksheet
Dim SplitR
Const L_Start = 2 'L_Start=1 Si pas de titre de colonne L_Start=2 si titre de colone.
Set Doublon = New Collection
 
 ReDim RowsSup(0)
For C = 1 To ActiveWorkbook.Sheets.Count
    Set MyRange = ActiveWorkbook.Sheets(C).Range("C1").CurrentRegion
    For L = L_Start To MyRange.Rows.Count
        Linge = MethodeHighlander(L, MyRange)
        If Linge <> 0 Then
            ReDim Preserve RowsSup(1 + UBound(RowsSup))
            RowsSup(UBound(RowsSup)) = ActiveWorkbook.Sheets(C).Name & ";" & Linge
        End If
    Next
Next
For L = UBound(RowsSup) To 1 Step -1
    SplitR = Split(RowsSup(L), ";")
    Set Feuille = ActiveWorkbook.Sheets(SplitR(0))
    Feuille.Rows(SplitR(1)).EntireRow.Delete
 
 
Next
End Sub
Function MethodeHighlander(L As Long, MyRange As Range) As Long
'La Méthode Highlander il ne peut en rester qu'un.
Dim col As Integer
Dim Text As String
Text = ""
MethodeHighlander = 0
For col = 3 To 3 'MyRange.Columns.Count
    Text = Text & "_" & MyRange(L, col)
Next
On Error Resume Next
'On peut ajouter dans une collection un enregistrement en lui donnant un nom.
'Le problème est qu'elle ne supporte pas les doublons.
'On utilise les messages d'erreur pour définir les doublons.
Doublon.Add txt, "T_" & Text
If Err <> 0 Then
    MethodeHighlander = L
    Err.Clear
End If
On Error GoTo 0
End Function

[DeathLighT]

Bonjour,

La solution Highlander fonctionne parfaitement, nous avons pu retirer quelques 2000 itérations

Je vais pouvoir me concentrer sur les dictionnaires, et voir comment celà fonctionne

Encore merci à vous de la part de mes collègues