ListBox : Propriété Height dynamique ne marche pas

[dionys0s]

Bonsoir le forum

J'ai un problème avec un userform.
J'ai une ListBox qui s'alimente correctement à l'initialisation du UserForm, et j'aimerais ajuster la hauteur de cette ListBox en fonction du nombre d'items, soit la macro suivante :

Private Sub UserForm_Initialize()

Dim Banque As Range

For Each Banque In Range("Banques")
    ListBox_Banques.AddItem (Banque)
Next Banque

ListBox_Banques.Height = ListBox_Banques.ListCount * ListBox_Banques.Font.Size * 1.25

Application.ScreenUpdating = True

End Sub

Et à l'ouverture du UserForm, la hauteur n'est pas modifiée.
Lorsque je fais l'ouverture du UserForm pas à pas (avec F8), ça marche, mais pas si j'utilise le bouton prévu pour ouvrir le UserForm.

Merci pour votre aide, je pense que le fichier joint sera utile.

dionys0s

 

[Paf]

Re : ListBox : Propriété Height dynamique ne marche pas

bonjour,
curieux, d'autant que la même procédure dans UserForm_Activate(), fonctionne parfaitement !!

A+

 

[dionys0s]

Re : ListBox : Propriété Height dynamique ne marche pas

Merci pour cette info. Quelle est la différente entre Activate et Initialize du coup ?

 

[Gareth]

Re : ListBox : Propriété Height dynamique ne marche pas

Bonsoir,

En modifiant la propriété IntegralHeight de la ListBox, le probleme disparait ?!...

 

[dionys0s]

Re : ListBox : Propriété Height dynamique ne marche pas

Bonsoir Jean-Marcel, Gareth

Jean-Marcel, merci pour ton explication.
Gareth, merci pour ta solution.

Bonne soirée à toutes et à tous.
Et Joyeux Nawelle.

 

[dionys0s]

Re : ListBox : Propriété Height dynamique ne marche pas

Bonjour.

Merci pour ta solution Jean-Marcel.

Happy day tout le monde !

 

[dionys0s]

Re : ListBox : Propriété Height dynamique ne marche pas

Petite mise à jour.

En gros après avoir résolu mon soucis grâce à Gareth et Jean-Marcel, je me suis penché sur la taille "idéale" d'une ListBox, et j'ai trouvé une formule approchant que je soumet aux perfectionnistes :

Taille de la police x Nombre d'items de la liste
+
Nombre d'items de la liste x 2
+
(Taille de la police + 2) / 4

ListBox1.Height = ListBox1.Font.Size * ListBox1.ListCount + 2 * ListBox1.ListCount + (ListBox1.Font.Size + 2) / 4

Ce n'est pas encore parfait, mais c'est ce que j'ai trouvé de plus proche pour le moment.

Si un perfectionniste de la mort qui tue a quelque chose d'encore plus correct, je suis preneur.

Bonne journée tout le monde

dionys0s