macro feuilles cachées

[peg63]

bonjour à tous,
je recherche une macro qui me fasse apparaitre une à une les feuilles cachées
j'ai touvé sur le forum pour toutes les feuilles en même temps mais pas une par une
merci

 

[Brissou]

Re : macro feuilles cachées

Bonjour,

Que vous voulez-vous dire par "une à une" ? Vous voulez demander à l'utilisateur s'il veut afficher cet feuille ?

Cordialement,
B.

 

[peg63]

Re : macro feuilles cachées

bonjour,
ex: j'ai une feuille apparente "nom_feuille" avec 4 feuilles masquées de nom _feuille(2) à nom_feuille(5); dés que je clique sur le bouton macro feuille apparente je fais apparaitre la feuille2, si je reclique sur le bouton je fais apparaitre la feuille 3 et ainsi de suite

 

[Robert]

Re : macro feuilles cachées

Bonsoir Peg, Brissou, bonsoir le forum,

Peut-être comme ça :

Private Sub CommandButton1_Click()
Dim I As Byte 'déclare la variable I (Index)
Dim J As Byte 'déclare la variable J (incrément)

ActiveCell.Select 'enlève le focus au bouton
I = ActiveSheet.Index 'définit l'index I
For J = I + 1 To Sheets.Count 'boucle sur tous les onglets du classeur après l'onglet I
    With Sheets(J) 'prend en compte l'onglet J
        'si l'onglet est masqué, il devient visible, sort de la procédure
        If .Visible = False Then .Visible = True: Exit Sub
    End With 'fin de la prise en compte de l'onglet J
Next J 'prochain onglet de la boucle
End Sub

Un fichier exemple :

 

[peg63]

Re : macro feuilles cachées

merci Robert ça marche et en prime les explications, le top
bon week end et a+