XL 2016 combobox via listview

[dereck]

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

 

[ChTi160]

Bonjour dereck
pas de fichier ? pas cool !
jean marie