coucou le forum!!!
j'ai un petit probleme avec mon cedo et la fonction offset.
tout les ligne de mon code fonctionne parfaitement bien mais quand j'ai rajouter la ligne en rouge celle - ci ne fonctionne pas et au lancement de mon userform le debogueur ce lance et m'affiche : erreur execution 380 , impossible de definir la propriete list. Valeur de propriete non valide.
voila mon code
si quelqu'un a une idée sa me depannerai beaucoup
a l'avance merci a tous!!!
j'ai un petit probleme avec mon cedo et la fonction offset.
tout les ligne de mon code fonctionne parfaitement bien mais quand j'ai rajouter la ligne en rouge celle - ci ne fonctionne pas et au lancement de mon userform le debogueur ce lance et m'affiche : erreur execution 380 , impossible de definir la propriete list. Valeur de propriete non valide.
voila mon code
Code:
Private Sub ComboBox1_Change() 'à chaque changement de la combobox1
ListBox1.Clear 'vide la Listbox1
x = 0 'définit la variable x
'boucle sur toutes les cellules non vides de la colonne C
For Each cel In zone
If cel.Value = CDate(ComboBox1.Value) Then
ListBox1.AddItem 'ajoute un élément à la Listbox1
ListBox1.List(x, 0) = cel.Value 'Numéro
ListBox1.List(x, 2) = cel.Offset(0, 2).Value
ListBox1.List(x, 3) = cel.Offset(0, 3).Value
ListBox1.List(x, 4) = cel.Offset(0, 4).Value
ListBox1.List(x, 5) = cel.Offset(0, 5).Value
ListBox1.List(x, 6) = cel.Offset(0, 6).Value
ListBox1.List(x, 7) = cel.Offset(0, 7).Value
ListBox1.List(x, 8) = cel.Offset(0, 8).Value
ListBox1.List(x, 9) = cel.Offset(0, 9).Value
[COLOR="Red"] ListBox1.List(x, 10) = cel.Offset(0, 10).Value[/COLOR]
x = x + 1 'redéfinit la variable x
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End Sub
si quelqu'un a une idée sa me depannerai beaucoup
a l'avance merci a tous!!!