Démasquer tous les onglets rapidement [Résolu]

Signaler
-
Messages postés
10061
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
17 juin 2021
-
Bonjour, j'ai 52 onglets masqués pour 52 semaines. Quand tous les onglets sont ouverts, je peux les sélectionner en groupe, clic droit, masquer et ça me convient parfaitement. Par contre, quand je veux faire l'inverse : ouvrir ces 52 onglets en même temps, je n'ai pas trouvé l'astuce pour le faire rapidement à part le faire manuellement (très long) ou avec Vba. Auriez-vous une solution plus simple ? Merci

6 réponses

Messages postés
10061
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
17 juin 2021
1 152
Bonjour,
Un petit code VBA
Sub AfficherSh() '***afficher les feuilles
For Each Sh In Worksheets
Sheets(Sh.Name).Visible = True
Next Sh
End Sub


Salutations.
Le Pingou
Bonjour, j'ai copié à l'identique ce code, je l'ai rattaché à un bouton mais ça ne fonctionne pas. Est ce que c'est plus simple de dire qu'on démasque tous les onglets commençant par S. Si Oui, pourriez vous adapter votre code svp. Merci beaucoup pour votre aide
Messages postés
10061
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
17 juin 2021
1 152
Bonjour,
Le code est correct . Pour voir se qui se passe on va ajouter un message:
 Sub AfficherSh() '***afficher les feuilles
For Each Sh In Worksheets
Sheets(Sh.Name).Visible = True
MsgBox " la feuille. " & Sh.Name & " est visible"
Next Sh
End Sub

Salutations.
Le Pingou
J'ai un message avec un triangle jaune et un point d'exclamation :
Erreur de compilation:
Variable non définie
voici mon code (je n'ai fait qu'un copier/coller) :

Sub AfficherSh() '***afficher les feuilles
For Each Sh In Worksheets
Sheets(Sh.Name).Visible = True
MsgBox " la feuille. " & Sh.Name & " est visible"
Next Sh
End Sub

Merci
Messages postés
702
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
17 juin 2021
53
Bonjour,

Rajoute
Dim sh As Worksheet 

avant
For Each Sh In Worksheets


Cordialement
>
Messages postés
702
Date d'inscription
jeudi 18 juillet 2019
Statut
Membre
Dernière intervention
17 juin 2021

non ça ne fonctionne toujours pas
je fais F5 sur le code.
Je vais passer en mode "membre" comme ça je pourrai faire un imprime écran pour vous montrer
Messages postés
10
Date d'inscription
dimanche 16 juin 2013
Statut
Membre
Dernière intervention
4 mars 2021
> Thierry_56
Messages postés
10
Date d'inscription
dimanche 16 juin 2013
Statut
Membre
Dernière intervention
4 mars 2021
>
Messages postés
10
Date d'inscription
dimanche 16 juin 2013
Statut
Membre
Dernière intervention
4 mars 2021

J'ai réussi à faire fonctionner les 2 codes de votre fichier
Pour ma part, j'ai 5 onglets que je dois garder ouverts en permanence mais ce que je souhaite c'est de pouvoir ouvrir tous mes onglets (avec true) qui commence par S (S01, S02, S03 etc...) en un clic idéalement et faire la manip inverse (avec false) pour les masquer...c'est sûrement possible
Messages postés
10061
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
17 juin 2021
1 152 >
Messages postés
10
Date d'inscription
dimanche 16 juin 2013
Statut
Membre
Dernière intervention
4 mars 2021

Bonjour Thierry_56 et ALS35,
C'est difficile de suivre le poste quant il ne se suive pas à cause de (Commenter)...!
Alors Thierry_56 on en est ou... sa marche Oui ou Non?
Salutations.
Le Pingou
Messages postés
10061
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
17 juin 2021
1 152
Bonjour,
Un petit exemple: https://www.cjoint.com/c/KCeqttFKrp0
J'ai bien reçu votre fichier...c'est exactement ce que je souhaite faire mais même en cliquant sur votre fichier, ça ne fonctionne pas.
ça me dit : Impossible d'exécuter le code en mode arrêt
Messages postés
10061
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
17 juin 2021
1 152
Bonjour Thierry_56,
J'ai modifier le code pour prise en compte remarque du poste 10.
Remplacer "Sub MasquerSh() par:
Sub MasquerSh() '***afficher les feuilles
nsh = Array("S01", "S02", "S03", "S04", "S05")
For Each sh In Worksheets
in_nsh = False
For c = 0 To 4
If nsh(c) = sh.Name Then
in_nsh = True
Exit For
End If
Next c
If in_nsh = False Then
Sheets(sh.Name).Visible = fasle
' MsgBox " la feuille. " & sh.Name & " est masquée"
End If
Next sh
End Sub


Messages postés
24106
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 juin 2021
6 806
Bonjour à tous,

fasle Le Pingou ? :-)

au plus court :
Sub AfficherSh() '***afficher les feuilles
Dim sh As Worksheet
For Each sh In Worksheets
If UCase(Left(sh.Name, 1)) = "S" Then sh.Visible = True
Next sh
End Sub

eric
>
Messages postés
24106
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 juin 2021

Merci à vous deux. J'ai opté pour le code le plus court. J'en ai juste créé deux : masquer et afficher
J'ai juste eu à remplacer True par False
J'ai apprécié votre aide
Bonne journée
Messages postés
10061
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
17 juin 2021
1 152 >
Messages postés
24106
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 juin 2021

Hello eriiic,
J'y avais pensé mais pas certain du nombres de feuilles alors j'ai un peu compliquer. Merci pour le 'false ' de trop.
Amicale salutations.
Le Pingou