Discussion :

[Gecoo]

Bonjour,

J'aimerai remplir une combobox sans doublons à l'aide d'une colonne d'une listview (filtrée). J'ai ce code ci :

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
18
Private Sub ComboBox9_DropButtonClick()
'Variables locales
    Dim i As Integer
    Dim MonDico
    Dim c As Range
    Dim Plage
 
'Remplit la Combo
For i = 1 To 14
    If ComboBox10.Value = Cells(1, i).Value Then
    Set MonDico = CreateObject("Scripting.Dictionary")
    For Each c In Range(ListView1.ListItems(2).ListSubItems(i), ListView1.ListItems(65000).ListSubItems(i))
        If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
    Next c
Me.ComboBox9.List = MonDico.items
End If
Next i
End Sub

et une erreur 35600 Index out of bounds.
Avec :

Code :

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

For Each c In Range(Cells(2,i),Cells(65000,i))

cela marche nickel mais il me prend toutes mes données et pas celles filtrées c'est pour cela que je pensais passer par les données que la listView affiche.

Merci pour votre aide.

G

[Gecoo]

J'ai testé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Remplit la Combo
For i = 1 To 14
    If ComboBox10.Value = Cells(1, i).Value Then
    Set MonDico2 = CreateObject("Scripting.Dictionary")
For j = 2 To 1000
For Each c In Range(Cells(2, i), Cells(65000, i))
        If Not c.Value = ListView1.ListItems(j).ListSubItems(i).Text Then MonDico2.Add c.Value, c.Value
        Next c
Next j
Me.ComboBox9.List = MonDico2.items
End If
Next i
End Sub

Mais j'ai une erreur 457, cette clé est déjà associée à un élément de de cette collection

??