Discussion :

[moi244]

Bonjour à tous,
Voilà j'ai d'abord lu ce tuto avant de poser ma question:
http://silkyroad.developpez.com/excel/doublons/#LIV-E

Je cherche à identifier les doublons qui sont:
Même données dans A ET dans B ET dans C ET dans E, mais que sur le même doublon, l'infos sur les deux lignes (ou trois ou plus) est différente dans la colonne H.
Est-il possible?
Je rappelle que j'ai des milliers de données donc sommeprod ce n'est pas une solution viable!
Merci

[Invité]

Bonjour,

En utilisant la méthode à papa selon le mode opératoire dans la diapo ci-dessous et selon que vous souhaitez isoler les doublons soit sur les colonnes A, B, C, E soit sur A, B, C, E, H.

S'il s'agit d'isoler les doublons pour les supprimer, on applique les points 4 et 5.







Cordialement.

[moi244]

Malheuresement je veux éviter toute manipulation de =...
j'ai essayé ceci, mais je bloque à la ligne 20-21:

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
Sub IdentifieDoublons(Plage As Range)
    Dim Cell As Range
    Dim Un As Collection
    Dim ligne As Integer
    
    Set Un = New Collection
  
    On Error Resume Next
    
    'Boucle sur la plage de cellule
    For Each Cell In Plage
        'Pour ne pas prendre en compte les cellules vides
        If Cell <> "" Then
            'Ajoute le contenu de la cellule dans la collection
            Un.Add Cell, CStr(Cell)
            
            'Si la procédure renvoie une erreur, cela signifie que l'élément
            'existe déjà dans la collection et donc qu'il s'agit d'un doublon.
            'Dans ce cas la macro colorie la cellule en vert.
            If Err <> 0 Then ...
            
            'Une fois que j'identifie le doublon, j'aimerais vérifier si les valeurs
            'dans les colonnes B,C,E sont identiques et que la valeur dans H sont
            'différentes pour les valeurs qui sont en double, triple...et+
            'Je sais que ça doit se faire avec un Offset,
            'mais je ne sais pas comment
            'Efface toutes les valeurs de l'objet Err.
            Err.Clear
        End If
    Next Cell
    
    Set Un = Nothing
End Sub

[Halo2550]

Bonjour,

Sinon dans Excel 2010 il y a un bouton pour ça dans Données->Outils de données-> suppression des doublons et là on choisit les colonnes à comparer et excel supprime les lignes ayant en double les valeurs des colonnes sélectionnées pour n'en garder qu'un seul exemplaire

EDIT : Par contre je crois que ça ne va pas marcher pour les cellules vides

[moi244]

Malheureusement, je ne peux pas utiliser cette fonction pour deux raison:

• D'abord, je ne veux pas supprimer les lignes

• ensuite, je cherche à identifier les valeurs qui ont les même données dans A, B, C et E mais que ça doit être différent dans H

[nibledispo]

bonjour,

ligne 2: la déclaration pose problème Cell est je pense un mot réservé que tu ne peux utiliser comme variable.

ligne 11: "plage" est une sélection qui n'est nulle part définie dans ton code.

comme le montre ERIC dans son exemple, la comparaison serait sans doute plus simple avec comparaison de la plage de cellules concaténées .

a mon avis ton code est à revoir totalement mais je n'ai pour l'heure rien à proposer hors les remarques ci-dessus.

cordialement.

[Invité]

Bonjour,

S'il faut automatiser avec une macro, il suffit d'utiliser l'éditeur de macro (Menu Développeur, Enregistrer une macro) et de reproduire manuellement ce que j'ai expliqué dans mon premier message.
Ensuite, il faudra simplifier la macro et l'adapter pour qu'elle fonctionne dans n'importe quel contexte.

Cordialement.