Obtenir les éléments uniques d'une liste
Bonjour,
J'ai une liste d'éléments qui se répètent.
Je cherche à obtenir une seconde liste sans doublons.
J'ai fait un petit programme mais il est très lourd à faire tourner
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| 'suppression des doublons
Cells(300, 1).Select
finliste = Selection.End(xlDown).Row
For m = 300 To finliste
For n = 300 To m - 1
If Cells(m, 1).Value = Cells(n, 1).Value Then
Cells(n, 1).Value = "0"
End If
Next n
Next m
For p = finliste To 300 Step (-1)
If Cells(p, 1).Value = "0" Then
Rows(p).Select
Selection.Delete Shift:=xlUp
End If
Next p
Cells(300, 1).Select
finliste = Selection.End(xlDown).Row |
Comment faire ça légèrement? (je pense que mon code est à jeter...)
D'avance merci !
Vincent
