list1

salut
comment je peux suprimmer les doublons dans une listbox

en évitant de les mettre 2 fois

Daniel

Salut,

Comment remplis-tu ta listbox ? Si c'est à partir d'une requete sql, il faudrait utiliser Distinct.

PS : j'ai supprimé ton précédent topic car, justement il faisait doublon.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

elle est deja plein mais des line sont repeter plusieur fois

Peut-être qu'un simple list1.clear avant de la re-remplir suffirait ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Salut ! En VB6, çà donne ceci :

Private Sub Command1_Click()
Dim l As Long
Dim k As Long

    For l = List1.ListCount - 1 To 0 Step -1
        For k = 0 To l - 1
            If List1.List(k) = List1.List(l) Then
                List1.RemoveItem k
            End If
        Next k
    Next l
End Sub

Private Sub Form_Load()
    With List1
        .AddItem "item1"
        .AddItem "item2"
        .AddItem "item1"
        .AddItem "item2"
        .AddItem "item1"
        .AddItem "item3"
        .AddItem "item1"
        .AddItem "item2"
        .AddItem "item3"
        .AddItem "item1"
        .AddItem "item2"
    End With
End Sub




Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

il est préférable que la liste soit triée, c'est plus facile de trouver les doublons.




Private Sub Command1_Click()
    Dim i As Integer
    Dim a As String
    Dim b As String
   
    For i = List1.ListCount - 1 To 0 Step -1
        a = List1.List(i)
        If a = b Then
           List1.RemoveItem i
           Else
           b = a
           End If
        Next
End Sub


Daniel