Bonjour,
J'aimerai remplir une combobox sans doublons à l'aide d'une colonne d'une listview (filtrée). J'ai ce code ci :
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 :
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
Partager