Encore avec une combobox et Listview

[salhi_haithem]

Bonsoir a Tous

j'ai un petit projet qui fonctionne bien juste je suis en phase d'amélioration et j'ai quelque problème

le premier c'est que je rempli une combobox avec une colonne d'un listview actuellement cela fonctionne correctement jusque la sans problème

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

 

[BOISGONTIER]

Re : Encore avec une combobox et Listview

Bonjour,

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

Listes sans doublons triée

JB

 

[salhi_haithem]

Re : Encore avec une combobox et Listview

Mille Merci BOISGONTIER pour ton aide
j'ai le même code mais j'ai pas su comment l'adapter avec la listView
juste une faute de frappe

temp = ListView2.ListItems(i).ListSubItems(2).Text
      d(temp) = ""

Et Merci une autre Fois