Cacher les feuilles

Bonjour à tous,

Mon souhait c'est de fermer des feuilles d'un classeur en 1 seul clic bien sure en me laissant la feuille que j'utilise ouverte et en cachant toutes les autres.

Peut que cette demande ne peut être réalisée.

Confirmez-moi ou l'infirmez s'il vous plaît avec vos lumières qui m'ont toujours guidées dans EXCEL.

Merci d'avance

Noel

Bonjour,

En considérant que c'est la feuille 1 sur laquelle tu travailles, utilise ce code :

Sub cachemontre()
'Macro Dan pour Cfn3cfn le 21/03/09 - xl pratique
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
If .Name <> "Feuil1" Then
    If .Visible = xlSheetVeryHidden Then
        .Visible = xlSheetVisible
    Else: .Visible = xlSheetVeryHidden
    End If
End If
End With
Next
End Sub

Macro à associer à un bouton bien sûr.

Amicalement

Dan

Bonjour à tous

Bonjour DAN,

J'ai crée sur ma feuille principale, j'ai changé le nom de la feuille dans la MACRO en remplaçant "feuille1" par le nom de ma feuille concerné.

Ca ne marche pas. Faut-il pas mettre autre chose?

Je ne sais pas .

Cette MACRO me semble intéressante avec, je pourrai faire apparaître toutes les feuilles du classeur.

Tabt pis cela ne fonctionne pas c'est du certainemen au MAC.

Merci

@+

Amicalement

Noel