Figer un onglet en position 1

Bonjour,

j'ai un classeur avec beaucoup de feuilles, donc l'onglet de ma feuille récapitulative "Index" disparait quand je suis sur une autre feuille éloignée.

Une petite macro svp pour que l'onglet "Index" reste toujours visible dans la liste de mes feuilles

Merci d'avance

Bonsoir,

Macro à coller dans le module ThisWorbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Sheets("Index").Move Before:=Sheets(Sh.Name)
End Sub

A+

galopin01 a écrit :

Bonsoir,

Macro à coller dans le module ThisWorbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Sheets("Index").Move Before:=Sheets(Sh.Name)
End Sub

A+

Merci pour la réponse !

Avec ta macro, l'onglet "Index" se place avant l'onglet actif, et puis redevient l'onglet actif

Donc pas bon du tout

modifie comme ça :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Sheets("Index").Move Before:=Sheets(Sh.Name)
   Application.EnableEvents = False
   Sh.Activate
   Application.EnableEvents = True
End Sub