Discussion :

[Loki83]

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 :

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
'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

[Loki83]

C'est bon j'ai allégé mon code.

Résolu

[ouisansdoute]

Bonjour

Une solution simple consiste à passer par les filtres élaborés dans le menu Données/Filtrer / Filtre élaboré

Pour utiliser les filtres élaborés il faut : une base, une zone de critères (d'au moins deux cellules) et une zone de résultat (facultatif)


Supposons la liste à extraire sans doublons en colonne sur la colonne A dont le nom (en A1) est liste

définit une zone de critère(s) en B2:B3 et saisi en B2 le nom liste

Définit une zone de destination : D1. Saisis en D1 le nom liste

Puis Menu Données/Filtrer filtre élaboré
Dans la fenêtre qui apparaît :

Code :

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

1
2
3
4
5
 -cocher "vers un autre emplacement
 - plage : $A:$A
 - zone de critère : B2:C2
 - Copier dans D1
Cocher : "extraction sans doublon"

et ta liste expurgée s'affiche

[Loki83]

Bonjour

Une solution simple consiste à passer par les filtres élaborés dans le menu Données/Filtrer / Filtre élaboré

Pour utiliser les filtres élaborés il faut : une base, une zone de critères (d'au moins deux cellules) et une zone de résultat (facultatif)


Supposons la liste à extraire sans doublons en colonne sur la colonne A dont le nom (en A1) est liste

définit une zone de critère(s) en B2:B3 et saisi en B2 le nom liste

Définit une zone de destination : D1. Saisis en D1 le nom liste

Puis Menu Données/Filtrer filtre élaboré
Dans la fenêtre qui apparaît :

Code :

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

1
2
3
4
5
 -cocher "vers un autre emplacement
 - plage : $A:$A
 - zone de critère : B2:C2
 - Copier dans D1
Cocher : "extraction sans doublon"

et ta liste expurgée s'affiche

Ah c'est génial ça !!!
Merci !!