Option Explicit
Dim Ligne As Integer
Dim Colonne As Byte
Private Sub ScrollBar1_Change()
Colonne = ActiveCell.Column
Cells(Me.ScrollBar1.Value, Colonne).Select
End Sub
Private Sub ScrollBar2_Change()
Ligne = ActiveCell.Row
Cells(Ligne, Me.ScrollBar2.Value).Select
End Sub
Private Sub UserForm_Initialize()
With Me
With ScrollBar1
.Min = 1
.Max = 65536
.SmallChange = 1
.LargeChange = 100
.Value = ActiveCell.Row
End With
With ScrollBar2
.Min = 1
.Max = 255
.SmallChange = 1
.LargeChange = 25
.Value = ActiveCell.Column
End With
End With
End Sub