Discussion :

[marc56]

Bonjour,
J'ai une petite liste (6 lignes) dont certaines valeurs peuvent être en double. Je souhaite donc récupérer une liste purgée des doublons.
J'ai regardé sur le forum et j'ai trouvé des solutions qui ne fonctionnent pas ou très complexes.
Quelqu'un a t-il une solution simple et qui fonctionne?
A l'avance, merci.

[LeForestier]

Bonjour,
Mettre la propriété Sort de la list à True, (trié par ordre alpha)
et..

Code :

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

1
2
3
4
5
6
7
8
Dim i as integer
Reco:
    for i=1 to Nomlist.ListCount-1
        if Nomlist.list(i) = Nomlist.list(i-1) then
             Nomlist.remove(i)
             Goto Reco
       end if
    next i

Comme tu n'a que quelques lignes c'est le plus simple.
A+

[marc56]

Merci, mais dans ton code, où sont les bornes des listes "Source", A2:A7 et "Cible", B2:B7 ? Désolé, mais je suis novice en VBA.

[marc56]

J'ai bien trouvé cette formule dans les cours de SilkyRoad,

{=(INDEX($A:$A;MIN(SI(NB.SI(B$1:B1;$A$1:$A$100)=0;LIGNE($A$1:$A$100))))&"")}

mais quand je l'applique, je récupère la totalité de la liste A, avec les doublons.
Où est le problème?

[LeForestier]

Bonjour,
Tu parle de liste sans plus de précision, pour moi une liste c'est un contrôle ListBox, mais bon..
En VBA tu peu employer cette macro

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
Sub MyMacro()
Dim e As Integer
Dim i As Integer
Dim Cell As Range
Dim Lig As Integer
    Lig = 2
    For i = 2 To 7
        For e = 2 To Lig
            If Cells(i, 1) = Cells(e, 2) Then
                Exit For
            End If
        Next e
        If e > Lig Then
            Cells(Lig, 2) = Cells(i, 1)
            Lig = Lig + 1
        End If
    Next i
End Sub

Je l'ai voulue relativement simpliste pout que tu puisse la comprendre
A+

[marc56]

Parfait, merci.