Discussion :

[spileo]

Bonsoir,

dans une UserForm, je crée des ListBox de manière dynamique et les procédures évènementielles associées (Merci la FAQ et le forum).

Tout fonctionne bien sauf que lorsque le code remplit les ListBox, les ascenceurs à gauche et en bas des ListBox apparaissent alors qu'ils ne devraient pas.

En effet je remplis les ListBox comme celà et la largeur des colonnes est telle que largement plus de 4 caractères tiennent dans la largeur.

Code :

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

1
2
3
4
 
Dim i as Single
i = 2
ListBox1.AddItem Format(i, "0.00")

J'ai testé les différentes propriétés des ListBox sans succès.

Quelqu'un aurait-il une idée svp?

[dilkas]

Hello spileo,

Il y a surement une propriété des ListBoxs qui a dû t'échapper, celle de la largeur des colonnes : .ColumnWidths.
Elle a une syntaxe un peu spéciale (un peu merdique je dirais même ). Il faut que tu lui spécifies une liste de valeurs qui correspond à la largeur en pt que tu veux donner à ta colonne.

Exemple :

Code :

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

lb_ta_listbox.ColumnWidths = "50;50;-1"

Cela signifie que tu as trois colonnes : les deux premières en partant de la gauche font 50 pt de largeur et la dernière s'ajuste normalement automatiquement. N'oublies pas les doubles cotes et le séparateur sinon ça marche pas !
Et pour être sur qu'il ne va pas t'afficher les scrollbars, et ben ... teste, re-teste, jusqu'à trouver les bonnes largeurs.

PS : Tu trouveras des explications nettement plus claires dans l'aide de Visual...

[spileo]

Merci pour cette réponse. En fait j'avais testé .Width et pas .ColumnWidths.
Le truc c'est que si la ListBox ne contient qu'une colonne, les scrollbars n'apparaissent que si .ColumnWidth > .Width.
A+