Afficher masquer des feuilles

[JeanJean]

Tout d'abord, je tiens à féliciter tous ceux et toutes celles qui participent activement ou ponctuellement à ce forum, source inépuisable de renseignements sur Excel.
Quand à moi, je recherche une solution permettant d'économiser du code.
Dans un fichier, j'ai une cinquantaine de feuilles dont la plupart sont masquées.
Seules les trois premières feuilles qui ont chacune un nom apparaissent en permanence.
Lors du déroulement de certaines macros, l'ensemble des feuilles sont affichées puis masquées après leur utilisation par la macro.
Comment faire pour, après exécution du code, masquer toutes les feuilles à l'exception des trois premières.
Ceci afin d'éviter d'écrire : Sheets("Nom");visible = false pour chacune des feuilles.
Merci d'avance.

 

[Arnaud]

salut,

essaye un truc comme ça : ( si bien sur tes 3 feuilles que tu souhaite garder sont en 1ère pos )

For i = 4 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Visible = False
Next i

 

[ChuBaKa]

Salut JeanJean,

une autre possibilité
Stocker les noms de feuilles qui tu veux voir masquer dans Feuil1 colonne B1 à BX


Sub mask_feuilles()
Worksheets("Feuil1").Activate
Dim i As Integer
i = 1
While Range("B" & i).Value <> ""
Sheets(Range("B" & i).Text).Visible = False
i = i + 1
Wend


End Sub

 

[JeanJean]

Salut à Arnaud et à Chubaka.
Vous trouverez que je ne réponds pas très tôt, mais j'ai lancé mon message du bureau et je suis parti en congés.
Après trois semaines d'un repos bien mérité, je rentre tout bronzé et je découvre vore réponse.
J'ai inséré le code d'Arnaud dans ma macro, cela a parfaitement fonctionné et je t'en remercie.
Je n'ai pas essayé le code de Chubaka mais je promet de le faire lorsque je développerai une autre application le nécessitant.

Merci à tous deux

 

[mustapha]

c'est la première fois que je participe à ce forum
je voulais proposer deux macro , l'un pour afficher tous les feuille masquer et l'auitre pour supprimer un nombre diterminer de ces feuille .


Sub mfffeuille()
' mffeuille c'est le nom du macro qu'il faut créer dans Excel
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Visible = True
Next i

' à personnaliser par l'utilisateur :Touche de raccourci du clavier: Ctrl+l

End Sub





Sub supfffeuille()
For i = ActiveWorkbook.Sheets.Count To 9 Step -1
' le chifrre 9 designe que je veux garder juste 9 feuille et effecer les autres
Sheets(i).Delete
Next i
' à perssonaliser par vous : Touche de raccourci du clavier: Ctrl+d

End Sub

 

[mustapha]

C’est la première fois que je participe à ce forum
Je voulais proposer deux macros, l'un pour afficher tous les feuilles masquer et l'autre pour supprimer un nombre déterminer de ces feuille

Merci de me evaluer et critiquer .

Sub mfffeuille()
' mffeuille c'est le nom du macro qu'il faut créer dans Excel
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Visible = True
Next i

' à personnaliser par l'utilisateur :Touche de raccourci du clavier: Ctrl+l

End Sub





Sub supfffeuille()
For i = ActiveWorkbook.Sheets.Count To 9 Step -1
' le chifrre 9 designe que je veux garder juste 9 feuille et effecer les autres
Sheets(i).Delete
Next i
' à perssonaliser par vous : Touche de raccourci du clavier: Ctrl+d

End Sub