Discussion :

[dereck_harper]

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

[linkenan]

Bonjour,
Je pense que tu peux essayer d'adapter la méthode utilisant Dictionary de Jacques Boisgontier expliquée ici : http://boisgontierjacques.free.fr/pa...nsdoublons.htm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
   Set mondico = CreateObject("Scripting.Dictionary")
   reDim a(ListView1.ListItems.Count) As String
   For i = 0 To ListView1.ListItems.Count-1
   a = ListView1.ListItems(i).ListSubItems(2).Text
   If a(i)<> "" Then mondico(a(i)) = ""
   Next i
   cbbVille.List = MonDico.keys

J'espère que ca t'aidera :D

[dereck_harper]

c'est parfait merci beaucoup, j'ai fait plus compliqué :

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
For i = 1 To ListView1.ListItems.Count
            If ListView1.ListItems(i).ListSubItems(2).Text <> "" Then
             If cbbVille.ListCount > 0 Then  'Deja des items dans la liste
            Paspresent = True
            For j = 0 To cbbVille.ListCount - 1
                If cbbVille.List(j) = ListView1.ListItems(i).ListSubItems(2).Text Then
                    Paspresent = False
                End If
            Next
      Else 'pas encore d'item dans la liste
            Paspresent = True
      End If
 
      If Paspresent = True Then cbbVille.AddItem ListView1.ListItems(i).ListSubItems(2).Text
 
    End If