Discussion :

[Loki83]

Bonjour,

J'ai une liste d'élément assez longue avec des doublons.
Quel est le moyen le plus rapide de créer une nouvelle liste sans doublon?

Je cherche un moyen qui me donnera le résultat rapidement car ça alourdit terriblement ma macro.

Merci de votre aide!

PS : j'utilise Excel 2003

[AnneCa]

Bonjour! Voilà déjà quelque chose. Le seul hic est que les valeurs de la colonne A doivent être ordonnés. Si les valeurs ne sont pas en ordre, il faudra ajouter un loop supplémentaire.

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
 
oldvalue = ""
i=1
j=1
newvalue = trim(Range("A" & i))
do while not trim(newvalue ) <> ""
 
	if newvalue <> oldvalue then
		Rang("B" & j) = trim(newvalue)	
		j=j+1
	end if
	oldvalue = = trim(Range("A" & i))
	i=i+1
	newvalue = trim(Range("A" & i))
loop

Bonne chance...

[Loki83]

Est ce que ce sera plus rapide que le filtre avancé d'Excel?

[patbou]

bonjour,

Dans la FAQ ou dans un tuto (je ne sais plus) , il y a un exemple d 'élimination des doublons avec une collection.

Une discussion en rapport
http://www.developpez.net/forums/d61...raite-doublon/

[jolop35]

Bonsoir



En utilisant Scripting.Dictionary

(ici dans la colonne A)

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
Sub MACRO_TESTdoublons()
Dim a, aWS As Worksheet
Dim r As Range, txt As String
Set aWS = _
    ActiveSheet
    With CreateObject("Scripting.Dictionary")
    For Each r In Intersect(aWS.Columns("A"), _
    aWS.UsedRange.Rows)
        If Not .exists(r.Value) Then
            .Add r.Value, Nothing
        Else
            txt = txt & "," & r.Address(0, 0)
        End If
    Next
    End With
If Len(txt) Then aWS.Range(Mid(txt, 2)).Delete Shift:=xlUp
End Sub

@+

J. L

[Loki83]

Merci de votre aide!!!!