Macro Afficher ou masquer feuilles

[FanExcel]

Je suis lancée !!!

Dans un TDB, je souhaite masquer des feuilles qui contiennent des requetes afin que la diffusion ne laisse apparaitre que ce qui interesse les destinataires.

Pour les Mises à jour périodiques, j'ai une macro qui affiche toutes les feuilles
Ensuite une autre macro pour ne masquer que quelques feuilles

Bien sur, comme d'hab, j'ai du rater qq chose et ça ne marche pas

Voici les codes
A priori la première (afficher) fonctionne et la deuxième plante

Afficher feuilles
Sub AfficherFeuilles()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Affichage des feuilles masquées")
If MDP <> "yes" Then Exit Sub
Dim n As Integer
For n = 1 To Sheets.Count
Sheets(n).Visible = True
Next n
End Sub

Masquer feuilles
Sub MasquerFeuilles()
Application.ScreenUpdating = False
Dim MDP As String
MDP = InputBox("Entrer mot de passe :", "Affichage des feuilles masquées")
Sheets(Array("Point1", "Point2", "Point3", "Point4", "Point5", "Point6", _
"Point7", "Point8", "Tables")).Select
If MDP <> "yes" Then Exit Sub
Sheets.Visible = True
End Sub

 

[PascalXLD]

Re : Macro Afficher ou masquer feuilles

Re

petit exemple avec ton fichier

 

[FanExcel]

Re : Macro Afficher ou masquer feuilles

Merci Pascal,

Je vais essayer, ne connaissant pas cette fonctionalité

Je reviendrai donner des news

A bientôt 🙂 🙂 🙂