Combobox et Listview

Bonsoir a Tous

j'ai un petit projet qui fonctionne bien

le premier c'est que je rempli une combobox avec une colonne d'une listview actuellement cela fonctionne correctement

j'aimerai supprimer les doublons de la combo

code qui alimente la combo

For i = 1 To ListView2.ListItems.Count

    If ListView2.ListItems(i).ListSubItems(2).Text <> "" Then
    Me.ComboboxFournisseur.AddItem ListView2.ListItems(i).ListSubItems(2).Text
    End If

Next i

et si c'est possible de trier la combo

Bonsoir,

Pour supprimer les doublons, utiliser un dictionnaire.

AddItem n'est pas rapide. Il est préférable d'utiliser List

Rechercher dans Google excel vba dictionary

Voir exemple en PJ

Set d = CreateObject("Scripting.Dictionary")
For i = 1 To ListView2.ListItems.Count
    If ListView2.ListItems(i).ListSubItems(2).Text <> "" Then
      tmp = ListView2.ListItems(i).ListSubItems(2).Text
      d(tmp) = ""
    End If
Next i
temp = d.keys
Call Tri(temp, LBound(temp), UBound(temp))
Me.ComboboxFournisseur.List = temp

Sub Tri(a, gauc, droi)          ' Quick sort
 ref = a((gauc + droi) \ 2)
 g = gauc: d = droi
 Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
       temp = a(g): a(g) = a(d): a(d) = temp
       g = g + 1: d = d - 1
     End If
 Loop While g <= d
 If g < droi Then Call Tri(a, g, droi)
 If gauc < d Then Call Tri(a, gauc, d)
End Sub

Ceuzin

Mille Merci ceuzin pour ton aide