Masquer Toute les feuilles sauf 3 (variable)

Bonjours au forum.

Je viens vous voir pcq je fais fasse à une impasse et je ne sais meme pas si ma requette est possible .

J'aimerai pourvoir cacher tout les feuilles de mon classeur sauf 3 lorsque j'appuie sur un bouton.

Jusque la rien de difficile . Mais les feuilles que je veux laisser visible ne sont pas fixe.

Je vous joins un fichier exemple pour que vous compreniez. Les feuilles sont vides mais le principe est la.

J'ai un bouton qui me permet de copier les feuilles en marron qui sont des modèle. La premiere feuille marron se copie avant la feuille "tableau grapique" et la deuxieme feuille marron se colle avant "Synthese" (ils changent de couleur et devienne Rouge et jaune respectivement)

J'aimerai avoir un bouton qui me laisse la feuille "Liste" visible ainsi que les deux dernières feuilles crée (la derniere rouge et la derniere jaune ).

Ce fichier est incrémenté chaque jour. Et donc L'index ainsi que les noms de ses feuilles sont variables aussis

Avez vous une solution à me porposer ou cela est impossible ?

Merci à vous

Bonjour,

Sub test()
Dim i As Integer
For i = 1 To Sheets.Count - 2
If Not Sheets(i).Name = "Liste" Then Sheets(i).Visible = False
Next
End Sub

Bonjour

Voir fichier

Cordialement

Amadéus a écrit :

Bonjour

Voir fichier

Cordialement

C'est éxactement ce que je voulais merci Bcp à toi.