macro pour afficher les feuilles masquer

[archi]

Bsr,

Je cherche à créer une macro générique (à placer dans la barre d'outils) qui puisse me permettre d'afficher toutes les feuilles masquer d'un fichier ouvert...
du style:

Sub afficher()

Sheets("Feuil1").Visible = True
Sheets("Feuil2").Visible = True

End Sub

malheureusement, ce code ne fonctionne que sur feuil1 et 2 et non sur d'autres
qui puis-je faire ??
merci d'avance
bye

 

[pierrejean]

Re : macro pour afficher les feuilles masquer

atester

dim n as integer
for n=1 to sheets.count
 sheets(n).visible=true
next n

 

[archi]

Re : macro pour afficher les feuilles masquer

Merci Pierre-Jean
bye

 

[Dugenou]

Re : macro pour afficher les feuilles masquer

Salut Archi, salut Pierrejean,

Super ! cette réponse m'intéresse beaucoup, mais...
Aurais-tu un truc pour le faire quel que soit le nom de la feuille (toto, CA janvier, etc...) ?

merci d'avance

 

[pierrejean]

Re : macro pour afficher les feuilles masquer

bonsoir dugenou

teste et tu verras

le nom de la feuille n'est pas evoqué dans la macro !!!

 

[Jacques87]

Re : macro pour afficher les feuilles masquer

Salut à tous les 3,

Pour répondre à ta question Dugenou, il te suffit de repérer ta feuille gràce à son Index

exemple, pour rendre la feuille "toto" visible

place = WorkSheets("toto").Index
Sheets(place).visible = True

à aménager en fonction de tes besoins

Bonne soirée

 

[Dugenou]

Re : macro pour afficher les feuilles masquer

Pierrejean : ok génial, j'avais pas fait assez attention (ni testé) : ce n'est pas le nom feuillx que tu appelles mais le N° de feuille.

Jacques : merci pour les explications