Discussion :

[zine pef]

salut tous et le forum

le code:::::::

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
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

[laetitia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zine pef]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[laetitia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[zine pef]

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