Spinbutton et/ou scrollbar

2 scrollBars : Une pour les lignes, une pour les colonnes.
Lignes : ScrollBarV --> Min = 1 Max = 65 536
Colonnes : ScrollbarsH -> Min = 1 Max = 256

Evenements :

Private Sub ScrollBarV_Change()
Cells(ScrollBarV.Value, ScrollBarH.Value).Activate
End Sub

Private Sub ScrollBarH_Change()
Cells(ScrollBarV.Value, ScrollBarH.Value).Activate
End Sub

Est-ce cela que tu voulais ???

Bonjour à tous,
Dans un userform je voudrais faire défiler la cellule active, à l'aide d'un
spin button ou d'un scrollbar (pour choisir la ligne donc l'enregistrement).
Je ne trouve pas dans excelabo.
Est-ce possible? Si oui avec quel code?
Merci d'avance +++

bonjour ManBas,

Private Sub SpinButton1_SpinDown()
Application.Goto Range(ActiveCell.Offset(1, 0).Address)
End Sub

Private Sub SpinButton1_SpinUp()
Application.Goto Range(ActiveCell.Offset(-1, 0).Address)
End Sub

isabelle

Bonjour à tous,
Dans un userform je voudrais faire défiler la cellule active, à l'aide d'un
spin button ou d'un scrollbar (pour choisir la ligne donc l'enregistrement).
Je ne trouve pas dans excelabo.
Est-ce possible? Si oui avec quel code?
Merci d'avance +++

Private Sub SpinButton1_SpinDown()
On Error Resume Next
Application.Goto Range(ActiveCell.Offset(1, 0).Address)
End Sub

Private Sub SpinButton1_SpinUp()
On Error Resume Next
Application.Goto Range(ActiveCell.Offset(-1, 0).Address)
End Sub

pour éviter l'aller à la ligne 0 ou 65537

isabelle

Bonjour à tous,
Dans un userform je voudrais faire défiler la cellule active, à l'aide d'un
spin button ou d'un scrollbar (pour choisir la ligne donc l'enregistrement).
Je ne trouve pas dans excelabo.
Est-ce possible? Si oui avec quel code?
Merci d'avance +++