Masquer et démasquer toutes les feuilles sauf deux

[maval]

Bonjour

Je recherche le code pour masquer et démasquer toutes les feuilles sauf deux "Accueil, Données" sur un bouton

Je vous remercie d'avance

 

[Hieu]

Re : Masquer et démasquer toutes les feuilles sauf deux

Salut,

Ce petit code te permettra de faire ce que tu veux :

Sub mlk()
For Each s In Sheets
    If s.Name <> "Accueil" And s.Name <> "Donnees" Then
    s.Visible = False
    End If
Next s
End Sub

++

 

[maval]

Re : Masquer et démasquer toutes les feuilles sauf deux

Bonjour Hieu

Je te remercie et te souhaite une bonne journée