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.