Scrollbar/ Ascenseur vertical sur un UserForm

Bonjour,

Après plusieurs recherches sur internet et sur le forum, je n'ai pas trouvé de solution à mon problème qui est pourtant simple:

Mon UserForm étant assez grand, lorsque je l'ouvre sur un petit écran, celui-ci 'dépasse' de l'écran en bas, comme si l'écran était assez grand pour tout afficher, je ne peux donc pas accéder à la partie basse de mon UserForm. J'aimerais donc ajouter une scrollbar verticale pour pouvoir descendre lorsque je suis sur un petit écran. Mais impossible de trouver un moyen :oops:
Voici les propriétés de défilement de mon UserForm :
Pièce jointe 283729


Merci de votre aide :oops:

Bonjour,

il faut mettre une valeur dans la propriété ScrollHeight, valeur qui doit impérativement être supérieure à la propriété Height

à toi ensuite d'adapter les bonnes valeurs pour coller avec tes souhaites

Super merci beaucoup c'était bien ça.
Je me disais bien que ça devait être simple. Seulement c'est pas très intuitif ^^

bonjour
sinon au plus simple et sans api Windows tu met ceci dans le activate de ton userform et tu met l'userform en mode modal= false
ton userform prendra la hauteur de l'écran moins la barre des taches et la scroll verticale se règlera toute seule et cela automatiquement pour n'importe quel écran

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Activate() Dim t#, ctrl, etat etat = Application.WindowState Application.WindowState = xlMaximized Me.Height = Application.Height - 18 t = 0 For Each ctrl In Me.Controls: t = IIf(ctrl.Top + ctrl.Height > t, ctrl.Top + ctrl.Height, t): Next Me.ScrollBars = 2 Me.ScrollHeight = t + 10 Application.WindowState = etat End Sub

---