scrollbar

bonjour Nicolas,

voici un exemple qui affecte un scroll de 10 lignes à la feuille active,

Private Sub UserForm_Initialize()
ScrollBar1.Min = 1
ScrollBar1.Max = 10
ScrollBar1.Value = 1
End Sub

Private Sub ScrollBar1_Change()
ActiveWindow.ScrollRow = ScrollBar1.Value
ActiveWindow.ScrollColumn = 1
End Sub

Private Sub ScrollBar1_Scroll()
ActiveWindow.ScrollRow = ScrollBar1.Value
ActiveWindow.ScrollColumn = 1
End Sub


isabelle

Bonjour au forum

J'aimerais faire fonctionner une barre de défilement dans un userform et je
ne sais pas le faire

Merci pour votre aide

NicolasB