Onglet : emplacement dynamique

[DoubleZero]

Bonjour à toutes et à tous,

Lorsque la quantité d’onglets d’un fichier est à la fois importante et fréquemment variable, il est fastidieux de retourner maintes fois à l’onglet « Sommaire ».

Auriez-vous, s’il vous plaît, une solution pour que ledit onglet soit toujours positionné immédiatement à gauche, ou à droite, de l’onglet actif ?

Je vous remercie pour votre aide 🙂.

 

[Cousinhub]

Re : Onglet : emplacement dynamique

Bonjour,

Par exemple ceci, à placer dans le ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With
If Sh.Name <> "Sommaire" Then Sheets("Sommaire").Move Sh
Sh.Select
Application.EnableEvents = True
End Sub

Bonne journée

 

[DoubleZero]

Re : Onglet : emplacement dynamique

Re-bonjour,

@bhbh,

Formidable ! 🙂

Merci 1000 fois, bhbh, et bonne journée.