Je voudrais supprimer les doublons dans ma listbox

Out of category
1

Bonjour,

Je voudrai supprimer les doublons dans ma listbox mais j'ai un bug que je n'arrive pas à résoudre.

Il m'en supprime bien mais au bout d'un moment il bug.

2

Bonjour. Essaye ca:

For i = 0 To Fournisseur.ListCount - 1
    For j = Fournisseur.ListCount - 1 To i + 1 Step -1
        If Fournisseur.List(j) = Fournisseur.List(i) Then Fournisseur.RemoveItem j
    Next j
Next i

 

2 « J'aime »