Discussion :

[linooo]

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

[mapeh]

Bonsoir, linooo
sans tester, ceci doit provenir du fait que tu supprimes tes lignes en partant de la 1 ère ligne
commence ta boucle à 100

Code :

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

For i = 100 to 1 step -1

si doublons à suivre, ta macro saute une ligne

[Invité]

Bonjour

Je pense qu'une petite lecture de cet article tout neuf de Silkyroad devrait t'aider.

Starec

[linooo]

Hello,

Merci pour vos réponses, ça m'a bien servi !

Mapeh, ton bout de code était très utile

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim i As Integer
Dim j As Integer
 
For i = 30 To 2 Step -1
    j = i - 1
    If Range("A" & i).Value = Range("A" & j).Value Then Range("A" & j).Delete
Next i
 
End Sub

[Invité]

Re

Si les réponses te conviennent, il faudrait cliquer sur

Starec