[XL-2000] Problème avec une listbox

Problème avec une listbox

Bonjour,

Je souhaite alimenter une listbox depuis une feuille excel en fonction du nom saisi dans un textbox.
Dans ma feuille qui me sert de source de données, j'ai 11 colonnes. Le filtre s'effectue sur la colonne 8.
J'ai codé:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 If Nom.Value = "" Then MsgBox ("Veuillez saisir une lettre.") Else Worksheets(2).Activate Listecpt.RowSource = "" ' Listecpt.ColumnCount = 11 Listecpt.ColumnWidths = "15;15;25;20;30;20;15;200;100;30;30" For lig = 1 To Range("A65536").End(xlUp).Row If Mid(Cells(lig, 8), 1, Len(Nom.Value)) = Nom.Value Then ' Ajoute une ligne et insère une donnée dans la colonne de gauche Listecpt.AddItem Cells(lig, 1).Value For col = 2 To 11: Listecpt.List(Listecpt.ListCount - 1, col) = Cells(lig,col).Value Next col End If Next lig Worksheets(1).Activate
J'ai un problème lorsque col = 10 avec un message "Impossible de lire la propriété list. Argument non valide.

D'autre part, la largeur des colonnes n'est pas fixe comme je le souhaite. Y a t-il une propriété de la listbox à modifier ?

Merci d'avance.
Julien.

Bonjour

Les colonnes sont numérotées de 0 à 10, car tu as 11 colonnes.

Philippe

Citation:

Envoyé par Philippe JOCHMANS

Bonjour

Les colonnes sont numérotées de 0 à 10, car tu as 11 colonnes.

Philippe

Bonjour,

Je n'ai pas de problème lorsque je supprime une colonne sur ma listbox. Y aurait-il une prise en compte d'un nombre de colonne à 10 maximum si une information n'est pas renseignée ?

Merci d'avance.
Julien.

Bonjour,

L'aide sur la propriété ColumCount dit ceci :
Pour une source de données indépendante, il y a une limite de 10 colonnes (0 à 9).
Source de données indépendante = introduction des données une à une via la méthode AddItem.

Pour éviter cette limitation, il faut d'abord introduire tes données dans un tableau et ensuite transférer ce tableau dans la ListBox

Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub test() Dim Tablo(1 To 20, 1 To 15) As String '<-- tableau de 20 lignes sur 15 colonnes Dim i As Byte, j As Byte Sheets(1).ListBox1.ColumnCount = 20 For i = 1 To 20 For j = 1 To 15 Tablo(i, j) = i & j Next Next Sheets(1).ListBox1.List = Tablo End Sub

Merci beaucoup.:ccool: