afficher tous les onglets masqués

[awerth]

existe t-il une macro permettant d'afficher tous les onglets masqués dans un classeur. ces onglets ne sont pas protégés par mot de passe, c'est simplement fastidieux de Format Feuille Afficher...

 

[Robert]

Bonsoir Awerth, bonsoir le forum,

je pensais que Sheets.Visible = True marcherait mais ça buggue. Alors :

Sub Macro1()
Dim x As Byte 'déclare la variable x

For x = 1 To Sheets.Count 'boucle sur tous les onglets
Sheets(x).Visible = True 'affiche l'onglet
Next x 'prochain onglet de la boucle
End Sub

 

[A Robert]

Un grand merci pour ton aide (le tutoiement est il de rigueur sur ce forum ?), ta macro fonctionne parfaitement.
A bientot peut etre sur ce forum...