Marjounette
XLDnaute Nouveau
Bonjour le forum,
Je souhaite combiner une ListBox avec un TabStrip de manière à obtenir plusieurs onglets qui me permettent d'afficher des données triées selon un critère de catégorie.
Cependant, je n'arrive pas à remplir la ListBox des ligne que je parcours dans une boucle FOR (voir code ci-dessous):
Je sais que la synthaxe .Range("A" & i&":F"&i) est fausse. Même en écrivant simplement .Range("A" & i), j'ai un message d'erreur:
"Impossible de définir la propriété List. Index de table de propriétés non valide."
Quelqu'un peut-il m'aider?
Merci d'avance
Je souhaite combiner une ListBox avec un TabStrip de manière à obtenir plusieurs onglets qui me permettent d'afficher des données triées selon un critère de catégorie.
Cependant, je n'arrive pas à remplir la ListBox des ligne que je parcours dans une boucle FOR (voir code ci-dessous):
Code:
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).Value '<--------------Je veux écrire la ligne i (de la colone A à la colonne F)
End If
Next i
End Select
Je sais que la synthaxe .Range("A" & i&":F"&i) est fausse. Même en écrivant simplement .Range("A" & i), j'ai un message d'erreur:
"Impossible de définir la propriété List. Index de table de propriétés non valide."
Quelqu'un peut-il m'aider?
Merci d'avance