Bonjour a tous,
voici mon problème, j'alimente un combobox via une listview que je voudrais sans doublons et je bloque
Private Sub cbbPays_change()
Dim i As Long
RemplissageListView
cbbVille.Clear
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).ListSubItems(2).Text <> "" Then
cbbVille.AddItem ListView1.ListItems(i).ListSubItems(2).Text
If cbbVille.ListIndex = -1 Then cbbVille.AddItem ListView1.ListItems(i).ListSubItems(2).Text
End If
TrierAlpha cbbVille, True
Next i
cbbSpecif.Clear
End Sub
voici le code ou j'essaie de suprimer les doublons mais cela ne fonctionne pas.
Merci par avance de votre aide
voici mon problème, j'alimente un combobox via une listview que je voudrais sans doublons et je bloque
Private Sub cbbPays_change()
Dim i As Long
RemplissageListView
cbbVille.Clear
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).ListSubItems(2).Text <> "" Then
cbbVille.AddItem ListView1.ListItems(i).ListSubItems(2).Text
If cbbVille.ListIndex = -1 Then cbbVille.AddItem ListView1.ListItems(i).ListSubItems(2).Text
End If
TrierAlpha cbbVille, True
Next i
cbbSpecif.Clear
End Sub
voici le code ou j'essaie de suprimer les doublons mais cela ne fonctionne pas.
Merci par avance de votre aide