Bonsoir,

J'ai voulu créer une petite macro sur excel qui permet de supprimer les doublons sur une colonne (je sais que cette fonction est directement accessible sur excel avec les filtres élaborés).

Mon code marche pas tout à fait, je pense qu'il y a un pbm de concetpion.

Par exemple, lorsque j'ai 10 éléments qui se répètent 7 vont être supprimés mais 3 vont rester, et je ne comprend pas pourquoi.

J'aimerais vraiment pouvoir où je me suis trompé dans l'algorithme,

Voici mon code :

Merci à celui qui pourra m'expliquer mon erreur.

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
Dim i As Integer
Dim j As Integer
Dim o As Integer
 
 
i = 0
While i < 100
    i = i + 1
    j = i
        While j < 100
        j = j + 1
        If Range("A" & i).Value = Range("A" & j).Value Then Range("A" & j).Delete
        Wend
 
Wend
 
For o = Cells(100, 1).End(xlUp).Row To 1 Step -1
If Cells(o, 1).Value = "" Then Cells(o, 1).EntireRow.Delete
Next o
 
End Sub