XL 2016 Adapter hauteur d'un UserForm et d'un Listbox en fonction du contenu

[halecs93]

Bonjour,

Je rencontre une difficulté avec un UserForm : je souhaite ajuster automatiquement sa hauteur ainsi que celle de la ListBox qu’il contient, afin d’éviter l’apparition de la barre de défilement verticale.

L’objectif est que l’utilisateur puisse visualiser l’intégralité des données sans avoir à scroller.

Si quelqu’un a une solution ou une piste, je suis preneur !

Merci d’avance 😊

 

[Lolote83]

Bonjour Halecs93,
Concernant ta demande, pour le moment, je ne sais pas trop.
J'ai vu qu'il y a des créations (textbox) en fonction des choix faits dans la listbox.
Cependant, la création des textboxs se fait à priori en regard des lignes sélectionnées dans la listbox
Vu que le formulaire n'a pas lui d'ascenseur vertical actuellement, les sélections en bas de tableaux sortent automatiquement de la page.
Que doit-on saisir dans ces texboxs ?
Du coup, ne pouvant répondre vraiment à ta question, j'ai pensé à un truc que je te soumets.
Pas du tout sûr que cela corresponde à ton besoin.
A voir
@+ Lolote83

 

[halecs93]

Bonjour Halecs93,
Concernant ta demande, pour le moment, je ne sais pas trop.
J'ai vu qu'il y a des créations (textbox) en fonction des choix faits dans la listbox.
Cependant, la création des textboxs se fait à priori en regard des lignes sélectionnées dans la listbox
Vu que le formulaire n'a pas lui d'ascenseur vertical actuellement, les sélections en bas de tableaux sortent automatiquement de la page.
Que doit-on saisir dans ces texboxs ?
Du coup, ne pouvant répondre vraiment à ta question, j'ai pensé à un truc que je te soumets.
Pas du tout sûr que cela corresponde à ton besoin.
A voir
@+ Lolote83

Bonjour et merci.

Je regarde la proposition... mais je préfère si possible conserver mon fonctionnement. Pourvoir sélectionner plusieurs lignes du ListBox et que s'affiche alors les Texbox correspondant... de façon à y saisir des quantités.

 

[vgendron]

Bonjour

tu as défini un maxListBoxHeight à 300
et ensuite tu calcules: calculatedHeight = ListBox1.ListCount * itemHeight

avec le nombre de lignes à affichier, ton calculatedHeigh atteint les 820 MAIS tu brides à 300 ==> le scroll sera mis
si tu mets ton max à 900 ==> toutes les lignes sont affichées, et pas de scroll.

mais;. si tu ajoutes des lignes à la table.. bah. tu te retrouves avec le meme pb..

 

[halecs93]

Bonjour

tu as défini un maxListBoxHeight à 300
et ensuite tu calcules: calculatedHeight = ListBox1.ListCount * itemHeight

avec le nombre de lignes à affichier, ton calculatedHeigh atteint les 820 MAIS tu brides à 300 ==> le scroll sera mis
si tu mets ton max à 900 ==> toutes les lignes sont affichées, et pas de scroll.

mais;. si tu ajoutes des lignes à la table.. bah. tu te retrouves avec le meme pb..

Hello... tout simplement merci !!!!

 

[nullosse]

Salut,
Pour que le formulaire ne dépasse pas la hauteur de l'écran, on peut mettre le formulaire avec une ScrollBar verticale et mettre ceci par exemple pour régler la hauteur du formulaire :

    Me.Height = 300
    Me.ScrollHeight = lastTextBoxBottom + margeBas
    ' Ajuste dynamiquement la hauteur du UserForm en fonction du dernier TextBox
 '   Me.Height = lastTextBoxBottom + margeBas

Il y a un souci avec la création des TextBox chez moi (même avec le code original) : plus on va vers le bas de la ListBox, plus elles se décalent :

Nullosse

 

[Dudu2]

Bonjour,
A toutes fins utiles, j'avais créé cette ressource...

Icône de la ressource

VBA - Valoriser et dimensionner une ListBox UserForm ou ActiveX à sa taille optimale

26 Novembre 2024

VBA - Value and size a UserForm or ActiveX ListBox to its optimal size

• Dudu2
• Utilitaires

 

[halecs93]

Salut,
Pour que le formulaire ne dépasse pas la hauteur de l'écran, on peut mettre le formulaire avec une ScrollBar verticale et mettre ceci par exemple pour régler la hauteur du formulaire :

    Me.Height = 300
    Me.ScrollHeight = lastTextBoxBottom + margeBas
    ' Ajuste dynamiquement la hauteur du UserForm en fonction du dernier TextBox
 '   Me.Height = lastTextBoxBottom + margeBas

Il y a un souci avec la création des TextBox chez moi (même avec le code original) : plus on va vers le bas de la ListBox, plus elles se décalent :
Regarde la pièce jointe 1220990

Nullosse

Bonjour,

Je ne souhaite pas de scrollbar 😉

Quant au décalage, je vais tenter en modifiant légèrement la taille de la police...et qui sait 😉

 

[halecs93]

Salut,
Pour que le formulaire ne dépasse pas la hauteur de l'écran, on peut mettre le formulaire avec une ScrollBar verticale et mettre ceci par exemple pour régler la hauteur du formulaire :

    Me.Height = 300
    Me.ScrollHeight = lastTextBoxBottom + margeBas
    ' Ajuste dynamiquement la hauteur du UserForm en fonction du dernier TextBox
 '   Me.Height = lastTextBoxBottom + margeBas

Il y a un souci avec la création des TextBox chez moi (même avec le code original) : plus on va vers le bas de la ListBox, plus elles se décalent :
Regarde la pièce jointe 1220990

Nullosse

J'ai modifié la valeur qui défini la hauteur des TexBox :

Dim itemHeight As Double: itemHeight = 19.5

19.5 semble fonctionner