Problème remplissage ListBox VBA Excel

[invite3b879c03]

Bonjour,

Je souhaite combiner une ListBox avec un TabStrip de manière à obtenir plusieurs onglets qui me permettent d'afficher des données selon un critère précis.
Cependant, je n'arrive pas à remplir la ListBox des ligne que je parcours dans une boucle FOR (voir code ci-dessous):

Select Case n
        Case 0 'Tous les coureurs
            UserForm1.ListBox1.Clear 'Efface la listBox1 et ré-écris tous les coureurs dedans
            Lecture_liste 'Execute la lecture de toute la page engagements
        Case 1 'Poussins
            temp = UserForm1.ListBox1.ListCount 'Garde en mémoire le nombre de coureur dans la liste
            UserForm1.ListBox1.Clear 'Efface la listBox1 et ré-écris les poussins dedans
                For i = 2 To temp
                    If (Sheets("Engagements").Cells(i, 5) = "Poussin") Then
                            UserForm1.ListBox1.List = .Range("A" & i&":F"&i)   '<-----------------------------------------Problème sur cette ligne
                    End If
                Next i
End Select

Je sais que la syntaxe sur la ligne où j'ai un problème est fausse mais c'est juste pour bien comprendre ce que je souhaite faire.

Quelqu'un saurait me "dépatouiller" ? ^^
-----

[invite3b879c03]

Un petit up.

Le message d'erreur est le suivant:

"Impossible de définir la propriété List. Index de table de propriétés non valide.

Lorsque je met rien que la valeur d'une cellule:

 
UserForm1.ListBox1.List = .Range("A" & i).Value

[Stan_94]

Bonjour,

as-tu regardé l'aide en ligne VBA, pour explorer les propriétés et méthodes de l'objet ListBox ?
Il me semble que c'est la méthode addItem de l'objet List qui permet d'ajouter des entrées à la listbox...