Impossible de définir la largeur des colonnes des listbox
Bonsoir a tous , je reviens encore une pour solliciter une assistance.
En effets tous les codes que j'ai élaboré pour définir la largeur des listebox ne répondent plus d'un coup. Je cherche mais je vois pas où se trouve l'erreur. Il ya trois listbox dans ce formulaire et subitement les trois présente une erreur d'exécution : impossible de définir la propriété columnwidths. Le type ne correspond pas. J'ai tenté de passé directement par rowsource sur le formulaire mais là aussi une erreur se produit: impossible de définir la propriété rowsource.
Voici le bout de code
Code:
1 2 3 4 5 6 7 8
| private sub combo_AM_Change()
Me.list_AM.Columncount=13
Me.list_AM.ColumnWidths="20;250;50;60;50;50;60;60;60;60;70;70;100"
Sheets(Combo_AM.value).Activate
Dim lastrow as long
lastrow=cells(rows.count,"B").End(xlup).row
Me.list_AM.list=Range("B3:N" & lastrow).value
End sub |
Avant tout je tien a m'excuser pour tout dérangement. Merci