un pousse dans ce code

salut tous et le forum

le code:::::::

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub ComboBox1_Change() i = 0 Me.ListBox1.Clear For Each c In Range([A2], [A65000].End(xlUp)) If c.Offset(0, 2) = Me.ComboBox1 Or Me.ComboBox1 = "*" Then Me.ListBox1.AddItem Me.ListBox1.List(i, 0) = c.Value Me.ListBox1.List(i, 1) = c.Offset(0, 1).Value Me.ListBox1.List(i, 2) = c.Offset(0, 2).Value Me.ListBox1.List(i, 3) = c.Offset(0, 3).Value Me.ListBox1.List(i, 4) = c.Offset(0, 4).Value Me.ListBox1.List(i, 5) = c.Offset(0, 5).Value Me.ListBox1.List(i, 6) = c.Offset(0, 6).Value Me.ListBox1.List(i, 7) = c.Offset(0, 7).Value Me.ListBox1.List(i, 8) = c.Offset(0, 8).Value Me.ListBox1.List(i, 9) = c.Offset(0, 9).Value '***ici j'ai ajouté la ligne******************************* Me.ListBox1.List(i, 10) = c.Offset(0, 10).Value 'une fenetre affiche d'erreur '************************************************* ** i = i + 1 End If Next c End Sub

---

une fenetre d'erreur d'exécution '380'
imposible de définir la propriété list.
valeur de propriété non valide

bonjour zine pef le forum a mon avis c'est normal avec la methode AddItem tu peus pas depasser 9 colonnes

une methode sans condition a adapter
Option Explicit

Code:

---

1 2 3 4

Dim t As Variant Private Sub UserForm_Initialize() t = Range("a2:k" & Range("a65536").End(xlUp).Row): listbox1.List = t End Sub

---

merci et bonsoir laetitia
ca marche ..
mais si j'ajoute une ligne

Code:

---

Me.ListBox1.List(i, 11) = c.Offset(0, 11).Value

---

" ce montre meme erreur
dans le code "a2:k"
que signifie le "k"

re, k correspond a la colonne k si tu veus rajouter encore un colonne L

Code:

---

t = Range("a2:l" & Range("a65536").End(xlUp).Row): listbox1.List = t

---

ect...
pense a modifier proprietes columncount a 12 ect...

un merçi laetitia pour l'aide
bonne nuit;