Discussion :

[EXCELFORME]

Bonjour,

Je cherche depuis quelques heures la réponse à une question toute simple.

J'ai un formulaire avec une barre de défilement dans VBA sous Excel.
Problème, je n'arrive pas à ajuster la longueur du formulaire qui est trop long.
Même si je joue avec les données dans les propriétés de défilement:



Le code que j'utilise est:

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
Me.ScrollBars = fmScrollBarsVertical
Me.ScrollHeight = Me.InsideHeight * 2
End Sub

J'ai aussi essayé de déplacer le code dans le layout du userform mais rien.

Merci de votre aide

[clementmarcotte]

Bonjour,

Bizarre, bizarre. C'est pareil chez-moi avec Excel 2016 également. Cela ressemble à un bug.

[EXCELFORME]

Merci, maintenant je sais que j'ai fait tout mon possible...

D'autres personnes dans ce cas ?

[Docmarti]

Pour modifier la hauteur, c'est la propriete .Height qu'il faut modifier.

Code :

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

UserForm1.Height = 100

[clementmarcotte]

Bonjour,

C'est que cela semble plus profond que cela. Même avec l'affichage des barres de défilement par défaut, soit que les barres s'affichent, mais inopérantes, soient qu'elles ne s'affichent pas du tout.

La solution qui semble être la plus logique pour l'instant, c'est d'éviter les UserForms uniques qui dépassent l'écran et de faire deux ou plusieurs userForms plus petits. Ou, pour ceux qui ont un Office à 32 bits et le Tabpage, MUltipage (Tabpage c'est en .net) c'est d'utiliser un UserForm plus petit avec un Tabpage Multipage. (Il y a un Multipage dans ma boîte à outils Office 2016, pour les versions précédentes, je ne me souviens plus.)

Mais, personnellement, je ne développe presque plus en VBA. J'aime mieux VB.net.

[EXCELFORME]

Pour modifier la hauteur, c'est la propriete .Height qu'il faut modifier.

Code :

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

UserForm1.Height = 100

Merci mais cela ne fonctionne pas.
Si je mets =100 cela coupe mon formulaire, si je mets plus de 100 mon formulaire reste aussi long.
Ma barre de défilement poursuit la lecture au delà de mon formulaire, je veux qu'elle s'arrête sous le bouton envoi.

Avec ton code, non seulement le formulaire n'est pas moins long mais il devient plus petit.

Voilà ce que j'obtiens en défilant.

[EXCELFORME]

Bonjour,

C'est que cela semble plus profond que cela. Même avec l'affichage des barres de défilement par défaut, soit que les barres s'affichent, mais inopérantes, soient qu'elles ne s'affichent pas du tout.

La solution qui semble être la plus logique pour l'instant, c'est d'éviter les UserForms uniques qui dépassent l'écran et de faire deux ou plusieurs userForms plus petits. Ou, pour ceux qui ont un Office à 32 bits et le Tabpage, MUltipage (Tabpage c'est en .net) c'est d'utiliser un UserForm plus petit avec un Tabpage Multipage. (Il y a un Multipage dans ma boîte à outils Office 2016, pour les versions précédentes, je ne me souviens plus.)

Mais, personnellement, je ne développe presque plus en VBA. J'aime mieux VB.net.

Merci pour ta réponse. Une fois encore ça ne fait dire que je suis pas folle ^^

[patricktoulon]

bonsoir
pour ajuster ta scroll vertical

dans le activate

Code :

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

1
2
3
4
for each ctrl in me.controls
if (ctrl.top+ctrl.height) > ltop then ltop=(ctrl.top+ctrl.height)
next
me.scrollheight=ltop+10

voila
et pareil pour l'horizontal en utilisant le left+width

[EXCELFORME]

Merci , mais cela ne fonctionne pas. J'ai essayé de jouer avec la valeur de "me.scrollheight=ltop+10"
Avec ou sans mon code initial, cela ne fonctionne pas.
C'est dommage qu'un truc si bête ne fonctionne pas.

[patricktoulon]

Bonjour je suis désolé mais ca fonctionne sur mes 3 pc il doit y avoir une erreur dans ton code

[clementmarcotte]

Bonjour Patrick,

Tu as raison avec ton UserForm à la taille que tu avais indiquée. Mais, si je mets la hauteur à 800 (> 768) dans les propriétés de l'UserForm et que je relance, là, cela fait patate.

[patricktoulon]

heu perso si tout les controls sont visible je me demande bien a quoi sert une scroll bar hein!!!

[unparia]

Bonjour patricktoulon

heu perso si tout les controls sont visible je me demande bien a quoi sert une scroll bar hein!!!

entre autres cas : à utiliser un userform de dimensions réduites (par rapport à l'écran) , mais que l'on peut alors dérouler.

[clementmarcotte]

Bonjour,

heu perso si tout les controls sont visible je me demande bien a quoi sert une scroll bar hein!!!

Tout dépend du nombre de contrôles et du besoin. Encore que personnellement, je regarderais plus du côté d'un Userform plus petit avec un Multipage contenant diverses sections (ou étapes). C'est peut-être plus délicat à programmer, mais au lieu de présenter un monstre épeurant à l'utilisateur, tu luis présentes de petits pas "plus digestes". Mais bon, comme j'ai dit précédemment, je suis presque "déménagé" à VB.net.

[patricktoulon]

Bonjour patricktoulon

entre autres cas : à utiliser un userform de dimensions réduites (par rapport à l'écran) , mais que l'on peut alors dérouler.

tu veux dire avec les apis??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
' Fonction d'acquisition de l'identifiant de la fenêtre active
Private Declare Function GAW Lib "User32" Alias "GetActiveWindow" () As Long
'Fonction d'affichage
Private Declare Function ShowWindow Lib "User32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
' Fonction de changement
Private Declare Function SWL Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub UserForm_Activate()
SWL GAW, -16, &H94CF0080
' et pour un affichage plein ecran a l'ouverture
'ShowWindow GAW, 3'affiche le userform en plein écran
End Sub

l'userform possède toutes les propriété des fenêtres normales (min , max fermer, élasticité)
tout simplement

[unparia]

tu veux dire avec les apis??

Non, pourquoi ?
Y compris en mode création, tout simplement.
Relis-moi. Il est des cas où l'on VEUT un userform qui n'occupe que peu d'espace visuel, mais qui soit alors déroulable. Par exemple un userform de 100 de hauteur, mais avec un contrôle dont la propriété Top est = 200. Ce contrôle n'apparaît alors qu'en déroulant le userform.

[HopPopPop]

Bonjour à tous.

Dans la fenêtre Développeur avec le formulaire affiché ainsi que sa fenêtre propriété, en exemple :
Si la propriété Height doit être égale à 490 pour afficher le formulaire dans son intégralité, il faut mettre 470 dans la propriété ScrollHeight, soit 20 de moins. Ensuite, il suffit de mettre le Height à la valeur voulue en tronquant ainsi l'affichage du formulaire.

[patricktoulon]

re
bonjour a tous
@unparia :
c'est quoi dérouler un userform je pige pas la ???

@hophophop :
je crois que tu te trompe il faut le top + le height du control le plus bas pour avoir tout les control avec la scroll

[unparia]

c'est quoi dérouler un userform je pige pas la ???

se servir de la scrollbar verticale pour le dérouler verticalement, par exemple (c'est sa vocation, lorsqu'attribuée ).
To scroll = dérouler/faire défiler

[patricktoulon]

re
ah!! ok alors j'ai raison

me.scrollheight=control_le_plus_bas.top+control_le_plus_bas.height + 10