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
Avant tout je tien a m'excuser pour tout dérangement. Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager