Comment rendre "opérationnel" les barres de défilement d'un boite de dialogue

[krystof_ii]

Bonjour,

J'ai créé une macro qui active une boite de dialogue & y ajoute autant de checkbox que d'item listé dans la colonne A.

Mon problème est que le nombre de checkbox créé dépasse les dimensions de la fenetre.

J'ai essayé d'activer la barre de défilement mais cela ne marche pas.

Qq'un aurait une solution ?

 

[kjin]

Re : Comment rendre "opérationnel" les barres de défilement d'un boite de dialogue

Bonjour,
Peut-être comme ça

Private Sub UserForm_Activate()
'.....
Me.KeepScrollBarsVisible = fmScrollBarsVertical
Me.ScrollHeight = PosY + 35
'ou bien
'Me.Height = PosY + 55
End Sub

A+
kjin

 

[krystof_ii]

Re : Comment rendre "opérationnel" les barres de défilement d'un boite de dialogue

Merci Kjin,

Ta soluce ne fonctionnait pas, par contre grace à elle, j'ai pu chercher dans l'aide :

Private Sub UserForm_Initialize()
Me.ScrollBars = fmScrollBarsBoth
Me.KeepScrollBarsVisible = fmScrollBarsNone

Me.ScrollHeight = 2 * Me.Height
Me.ScrollWidth = 2 * Me.Width

'Set ScrollHeight, ScrollWidth before setting
'ScrollLeft, ScrollTop
Me.ScrollLeft = Me.Width / 2
Me.ScrollTop = Me.Height / 2
End Sub

Et avec ca, ca marche impec !

Merci bcp