Discussion :

[JahExodus]

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
Voici les propriétés de défilement de mon UserForm :



Merci de votre aide

[joe.levrai]

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

[JahExodus]

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

[patricktoulon]

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 :

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

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