Label dans un multipage avec defilement

Version imprimable

02/02/2023, 19h27
esse2016

Label dans un multipage avec defilement

Bonjour,

Je viens ici, car j’ai dans un userform1 une multipage1.
Dans la multipage1 je mets des labels. J’en ai environ 150 qui se mettent les unes apres les autres sur la verticale.

Mon soucis est que les 30 premiers labels sont visibles mais pas les 120 autres car la multipage1 n’est passez grande en hauteur.

Il faudrait un scrollbar pour voir la suite de mes labels. Dans propriété de la multipage1 il y a un scrollbar, mais ne procure aucun effet lorsque je joue sur les valeurs. De plus je comprends que pour afficher les 120 autres labels, il faut dire à vba de le faire.

Mon problème est comment programme t’on cela ?
Cela me parait compliqué mon affaire

Merci par avance pour votre aide

1 pièce(s) jointe(s)

Bonjour,

Une façon de faire pour ajouter un ascenseur (scrollbar) dans un onglet (page) d'un formulaire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
    Dim o As Object, kMax As Long
    With MultiPage1.Pages(0)
        For Each o In .Controls
            If kMax < o.Top Then kMax = o.Top
        Next o
        .ScrollBars = fmScrollBarsVertical
        .KeepScrollBarsVisible = fmScrollBarsVertical
        .ScrollHeight = kMax + 20
        .ScrollTop = 0
    End With
End Sub

A adapter.
Cordialement.

03/02/2023, 08h07
esse2016

1 pièce(s) jointe(s)

Bonjour,

ça fonctionne correctement, Je vous dis un grand merci car je n'avais aucune idée de comment le programmer et peu d'exemple sur le net.
ci-dessous mon exemple
Pièce jointe 633627
Merci !