XL 2016 combobox via listview

dereck

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
14
Affichages
621

Statistiques des forums

Discussions
311 733
Messages
2 082 008
Membres
101 864
dernier inscrit
elrecruiter