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