Discussion :

[ouskel'n'or]

Il arrive parfois que la suppresion de doublons sans tri préalable soit demandée. Je propose donc le code suivant qui, sans être très élégant, résoud le problème.

Idée 1 : Supprimer les doublons sans effectuer de tri préalable afin de conserver l'ordre des données.

Idée 2 : Option 1 -> Ne supprimer que les lignes entièrement vides (permet de conserver les données situées dans les colonnes suivantes si A est vide)
.............Option 2 -> Supprimer toutes les lignes dont la cellule de la colonne A est vide
.............Option 3 -> Ne pas supprimer les lignes vides

Idée 3 : Supprimer les doublons dans une plage présentant des lignes vides

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
Sub LaMacro()
Dim FL1 As Worksheet
Dim Valeur As Variant, c As Range
Dim NoLigne As Long, DerLig As Long
    Set FL1 = Worksheets("Feuil1")
    NoLigne = 1
    Do
        If Not Cells(NoLigne, 1) = "" Then
            Valeur = Cells(NoLigne, 1)
            Do
                With FL1.Range("A" & NoLigne + 1, [A65536].End(xlUp))
                    DerLig = 0
                    Set c = .Find(Valeur, LookIn:=xlValues, LookAt:=xlWhole)
                    If Not c Is Nothing Then
                        If c.Row > NoLigne Then
                            DerLig = c.Row
                            c.EntireRow.Delete
                        End If
                    End If
                    Set c = Nothing
                End With
            Loop While DerLig > NoLigne
 
        Else
'Idée 2 - Option 3 : Pour conserver les lignes vides, supprimer tout le Else
 
'Idée 2 - Option 1 -> Condition pour ne supprimer que les lignes entièrement vides
            If FL1.Range("IV" & NoLigne).End(xlToLeft).Column = 1 And _
               FL1.Cells(NoLigne, 1) = "" Then
 
'Idée 2 - Option 2 : Pour supprimer ttes les lignes dont la colonne A est vide,
'supprimer la condition ci-dessus
                FL1.Rows(NoLigne).Delete
                NoLigne = NoLigne - 1
            End If
        End If
        NoLigne = NoLigne + 1
    Loop While NoLigne < FL1.Range("A65536").End(xlUp).Row
End Sub

A défaut d'un code plus élaboré

[SilkyRoad]

bonjour cher Ouskel'n'or


D'autres solutions dans ce lien:

http://silkyroad.developpez.com/excel/doublons/#LIV-F

Il me semble que passer par une collection serait plus rapide


bonne journée
michel

[ouskel'n'or]

Merci Michel,
La collection est effectivement une bonne idée mais ne remplit pas les trois options que je me suis fixé.
En outre, dans la solution proposée, seules les données de la première colonne sont "collectionnées".
On pourrait bien sûr établir la collection des N° de lignes des données sans doublon plutôt que les données elles-même, puis recopier ces lignes sur une autre feuille (puisqu'il serait impossible de supprimer les doublons sans modifier les N° de ligne) etc. Enfin on perdrait toutes les lignes vides (sauf une) dont la colonne examinée serait vide pour peu qu'on souhaite ne supprimer que les lignes entièrement vides (l'une de mes options)

Par contre, je constate que nous autres, fidèles d'Office 2003, allons bien vite devenir obsolètes face aux adeptes d'Office 2007... (que je n'ai pas l'intention d'acquérir vu que je n'en ai plus aucun besoin, à moins que Microsoft ne me l'offre )
Merci de ton attention mais n'hésite pas à me dire si je me fourvoie en affirmant qu'en raison des options que je me suis fixé, la collection ne me conviens pas.
A+
Amicalement
Joël

[random]

Quand on veut garder l’ordre des données lors de tris successifs il suffit d’ajouter une colonne
Ordre avec pour valeur des cellules =ligne()
Et de faire un copier collage spécial valeurs sur l’ordre

Ceci n’enlève rien aux mérites de tes solutions

[ouskel'n'or]

Merci Random,
En permettant de replacer les données dans l'ordre originel, ta solution s'inscrit effectivement dans celle proposée par AlainTech dans cette discussion maintenant dans la FAQ. Faudrait l'ajouter

[grrimag]

Bonjour,

une autre solution qui permet de supprimer les doublons sans tri consiste à construire un nouvel objet adapté à une ligne puis à lire la feuille ligne par ligne en créant un objet par ligne
Une fois cela fait, on indexe (classe) l'ensemble des objets (avec un tri rapide) et on cherche directement les doublons sur les objets. On obtient donc les lignes doublons que l'on peut ensuite supprimer facilement.
Cette méthode marche très bien mais elle est assez lente, notamment parce que l'on passe 2 fois la feuille en revue. En pratique, jusqu'à 3 - 4000 lignes, c'est jouable, ensuite,... ça dépend de l'ordi....

grimmag