Démasquer tous les onglets rapidement
Résolu
Thierry_56
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
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
A voir également:
- Démasquer tous les onglets rapidement
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Restaurer les onglets chrome - Guide
- Télécharger rapidement - Télécharger - Téléchargement & Transfert
- Copier rapidement des fichiers - Télécharger - Gestion de fichiers
- Ouvrir plusieurs onglets en même temps - Guide
6 réponses
Bonjour,
Un petit code VBA
Un petit code VBA
Sub AfficherSh() '***afficher les feuilles
For Each Sh In Worksheets
Sheets(Sh.Name).Visible = True
Next Sh
End Sub
Thierry_56
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
Bonjour,
Le code est correct . Pour voir se qui se passe on va ajouter un message:
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
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
ça me dit : Impossible d'exécuter le code en mode arrêt
Bonjour Thierry_56,
J'ai modifier le code pour prise en compte remarque du poste 10.
Remplacer "Sub MasquerSh() par:
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
Bonjour à tous,
fasle Le Pingou ? :-)
au plus court :
eric
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
