Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Masquer et démasquer toutes les feuilles sauf deux

maval

XLDnaute Barbatruc
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

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

Salut,

Ce petit code te permettra de faire ce que tu veux :
Code:
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

++
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…