Figer une feuille en premier rang pour tjrs

Bonsoir Hasardeux, le Forum

Longtemps que je ne t'avais plus vu sur XLD !

C'est bizarre ta demande, pourquoi ne pas masquer les feuilles ? même en 'VeryHidden', c'est assez fiable ? non ?

Enfin quoiqu'il en soit, voici une solution où j'ai mis une Boolean 'Vérrou' pour permettre des movements par une Interface...

Dans le Private Module 'ThisWorkBook'

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If MoveSheetUnLocked = False Then
&nbsp; &nbsp; &nbsp; &nbsp; If ActiveSheet.Name <> 'SOMMAIRE' Then Worksheets('SOMMAIRE').Activate
&nbsp; &nbsp; End If
End Sub

Cliquez pour agrandir...

Dans le Private Module de Feuille SOMMAIRE

Option Explicit

Private Sub CommandButton1_Click()
MoveSheetUnLocked = True
&nbsp; &nbsp; Sheets('Feuil2').Activate
MoveSheetUnLocked = False
End Sub

Cliquez pour agrandir...

Dans un Module Standard

Option Explicit

Public MoveSheetUnLocked As Boolean

Cliquez pour agrandir...

Ce devrait faire ton bonheur, quoiqu'un peu tiré par les cheveux...

Bonne Soirée
@+Thierry