Comment faire pour que tous les onglets de mon classeur s'ouvrent en affichant le haut de la feuille ??

[pat66]

Bonjour Le forum

je souhaiterai qu'à l'ouverture du classeur, tous les onglets de mon classeur s'ouvrent en affichant automatiquement le haut de la feuille, voire même en A1

Merci pour votre aide

bonne soirée

 

[Staple1600]

Bonsoir

Est-ce que cette macro collée dans ThisWorkbook donne le résultat escompté?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Application
.ScreenUpdating = False: .Goto Sh.[A1], -1
End With
End Sub

NB: Pour aller dans ThisWorkbook, clic-droit sur l'onglet -> Visualiser le code

 

[mapomme]

Bonsoir @patricklopez66 , @Staple1600

Cette macro ne fait que remonter la vue à la ligne 1 sans changer de colonne (on ne revient pas à la cellule A1).

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  ActiveWindow.ScrollRow = 1
End Sub

 

[pat66]

Bonsoir,

merci à tous les deux pour votre aide, c'est vrai que la macro de Mapomme me convient mieux

A bientôt sur le forum