Masquer les onglets sauf feuille active

[SPEA]

Bonjour,

je cherche à masquer les onglets sauf celui de la feuille active, quel est le code à inserer dans sheet_activate ?

Merci

 

[MAZETTE]

Re : Masquer les onglets sauf feuille active

Salut SPEA,

Essaye ce code:

Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Visible = False

salutation

 

[skoobi]

Re : Masquer les onglets sauf feuille active

Bonjour,

un exemple:

For n = 1 To Sheets.Count
    If Sheets(n).Index <> ActiveSheet.Index Then Sheets(n).Visible = False
Next n

Edit: bonjour MAZETTE

 

[JNP]

Re : Masquer les onglets sauf feuille active

Bonjour Spea, Mazette, Skoobi 🙂,
Ou tu peux masquer tous les onglets :

    ActiveWindow.DisplayWorkbookTabs = True

Ou aussi, tu peux faire une boucle sur toutes les feuilles et les masquer:

    For Each WS In ThisWorkbook.Worksheets
        If WS.Name = "Feuille que tu veux garder" Then
            WS.Visible = xlSheetVisible
        Else
            WS.Visible = xlSheetVeryHidden
        End If

Bon courage 😎

 

[SPEA]

Re : Masquer les onglets sauf feuille active

En fait j'ai créé une feuille de menu avec des boutons qui me permettent de naviguer vers mes feuilles et un bouton sur chaque feuille qui me permet de revenir vers le menu.

Je veux conserver seulement l'onglet de la feuille active et masquer les autres.

Le code dans la feuille menu pour acceder aux feuilles est le suivant:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Janvier").Visible = xlSheetVisible
Sheets("Janvier").Select
Application.ScreenUpdating = True
End Sub

Etc...pour chaque feuille

Le code sur chaque feuille permettant de revenir au menu:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Menu").Visible = xlSheetVisible
ActiveWindow.SelectedSheets.Visible = False
Sheets("Menu").Select
Application.ScreenUpdating = True
End Sub

Depuis que j'ai mis ce code dans Thisworkbook sheetactivate:

For n = 1 To Sheets.Count
    If Sheets(n).Index <> ActiveSheet.Index Then Sheets(n).Visible = False
Next n

les cellules sont grisées, quelqu'un sait il pourquoi le fond des cellules est devenu gris ?

 

[skoobi]

Re : Masquer les onglets sauf feuille active

Re,
remplace "xlSheetVisible" par "True" partout, sans garantie.