Choisir la plage affichée

[Troudz]

Bonjour,

Je voudrais faire en sorte que quand l'utilisateur arrive sur une feuille de mon classeur, la cellule affichée en haut à gauche soit systématiquement la cellule A1.

J'ai donc utilisé :

Private Sub Worksheet_Activate()
    ActiveSheet.Cells(1, 1).Select
End Sub

mais je me rends compte que si l'utilisateur a déjà utilisé l'ascenseur sur cette feuille, cela ne fait pas forcément revenir tout en haut.

Comment pourrais - je faire ?

Je vous remercie par avance de votre aide et bon week end.

 

[Raja]

Re : Choisir la plage affichée

Bonjour,

Essaie le code suivant inséré dans "ThisWorkbook" plutôt que dans la feuille :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Cells(1, 1).Select
End Sub

 

[MichD]

Re : Choisir la plage affichée

Bonjour,

copie ce code dans le ThisWorkbook

Dans l'exemple suivant, "Feuil1" représente la propriété "Name" des objets feuilles
visibles seulement dans la fenêtre de l'éditeur de code. Ne pas confondre avec le
le nom des onglets des feuilles de calcul.

Private Sub Workbook_Activate()
If ActiveSheet.CodeName = "Feuil1" Then
    Application.Goto Range("A1"), True
End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.CodeName = "Feuil1" Then
    Application.Goto Range("A1"), True
End If
End Sub

 

[Troudz]

Re : Choisir la plage affichée

Impec !

Je vous remercie, les deux solutions marchent impec !

Bonne soirée