ScrollBar

Bonjour,

J'ai une ScrollBar dans une User form, j'aimerai pouvoir bouger ma feuille jusque la cellule S1 lorsque ma scrollbar est à fond sur la droite, puis revenir en A1 lorsque celle ci est à fond sur la gauche.

Merci de pouvoir m'aider car je suis en recherche depuis ce matin =)

bonsoir

a voir si cela convient

Private Sub ScrollBar1_Change()
 Me.ScrollBar1.Max = ActiveSheet.Columns.Count - 1
 ActiveWindow.ScrollColumn = Me.ScrollBar1.Value + 1
End Sub

Bonjour Bob,

Merci pour ton aide, cela fonctionne (pas vraiment entre la cellule A1 et S1 mais beaucoup plus). Cela fera l'affaire quand même. Sais tu comment le faire mais dans une colonne ? (A1 => A 200)

Merci

Bonsoir Jess88

en fonction de la ligne 2

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

Private Sub UserForm_Initialize()
  Me.ScrollBar1.Max = ActiveSheet.Cells(2, Columns.Count).End(xlToLeft).Column
End Sub