Discussion :

[juju05]

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 :

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

[Invité]

Bonjour

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

Philippe

[juju05]

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.

[fring]

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 :

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

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

[juju05]

Merci beaucoup.