Bonjour a tous,
voici mon problème, j'alimente un ComboBox via une ListView que je voudrais sans doublons et je bloque

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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 supprimer les doublons mais cela ne fonctionne pas.

Merci par avance de votre aide