Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Masquer les feuilles excel macro VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion xmid49
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
X

xmid49

XLDnaute Nouveau
Bonjour,

Nouveau problème (même si je commence à m'en sortir petit à petit dans VBA), je souhaite masquer des feuilles excel dans mon fichier professionnel afin qu'elle ne soit pas consultable par d'autres personnes.
Pour ce faire j'utilise la fonction suivante:

Sub masquerlesfeuilles ()
'Masquer feuilles excel'

Sheets("Nom de la feuille").Visible = False
Sheets("Feuil2").Visible = False
Sheets("Feuil3").Visible = False

End Sub

Lorsque je clique sur mon bouton VBA "Masquer les feuilles", les feuilles que je souhaite afficher se masquer alors que d'autres feuilles, que je ne souhaites pas voir afficher, reste affichées.
exemple: J'ai trois feuilles, je souhaite conserver la feuille 3 et masquer les feuilles 1 et 2.
Dans mon cas, lorsque je clique sur "Masquer les feuilles", la feuille 2 s'affiche et les feuilles 1 et 3 se masquent.

Autre question, je voudrais également que les feuilles se cachent automatiquement à la fermeture de mon fichier. Es ce possible? Quel code doit-on utiliser?

Merci d'avance
 
Trier par date Trier par votes
Re : Masquer les feuilles excel macro VBA

Salut bien,

Voici un code à mettre dans un module
Code: 
Sub affiche()
For k = 1 To Sheets.Count
Sheets(k).Visible = True
Next
End Sub
Sub masquage()
For k = 1 To Sheets.Count
If Sheets(k).CodeName <> "Feuil3" Then Sheets(k).Visible = 2
Next
End Sub

et pour masquer en quittant au moment de l'enregistrement voici
1 doubleclick sur Thisworkbook et....à copier
Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
masquage
End Sub

Bruno
 
Vote positif 0 Vote négatif
Re : Masquer les feuilles excel macro VBA

Merci Bruno pour ta réponse,

Je viens d'insérer ta macro. Problème, dans mon fichier j'ai 3 feuilles à laisser afficher sur environ 14 feuilles au total. Voici ce que j'ai écris:

Sub masquage ()

If Sheets(K).CodeName <> "Feuil13" And "Feuil12" And "Feuil14" Then Sheets(K).Visible = 2
Next
End Sub
 
Vote positif 0 Vote négatif
Re : Masquer les feuilles excel macro VBA

Heu!! non

Sub masquage()
For k = 1 To Sheets.Count
nom=Sheets(k).CodeName
If nom <> "Feuil12" or nom <> "Feuil13"or nom <> "Feuil14" Then Sheets(k).Visible = 2
Next
End Sub

Bruno
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Masquer les feuilles excel macro VBA

Désolé Bruno, J'ai bien copier ta macro mais il me met erreur 1004. J'ai regardé si l'erreur ne correspondait pas à un problème de protection de la feuille ou du classeur. aucune protection.
J'ai également remplacé "Sheets" par "WorkSheets", on sait jamais, même constat.

Ce qui m'énerve c'est que je suis sur le problème depuis deux jours, mon fichier est pratiquement terminé avant d'être applicable à l'ensemble des autres fichiers. Mais je bloque sur cette macro et c'est certainement la plus importante.

Merci d'avance pour votre aide.
Romain
 

Pièces jointes

  • Problème Macro.jpg
    62.6 KB · Affichages: 114
  • Problème Macro.jpg
    62.6 KB · Affichages: 129
  • Problème Macro.jpg
    62.6 KB · Affichages: 135
Vote positif 0 Vote négatif
Re : Masquer les feuilles excel macro VBA

Erreur de ma part.
J'ai mis des Or au lieu de And
donc cela donne

Code: 
Sub masquage()
For k = 1 To Sheets.Count
nom = Sheets(k).CodeName
If nom <> "Feuil12" And nom <> "Feuil13" And nom <> "Feuil14" Then Sheets(k).Visible = 2
Next
End Sub
Bruno
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Autres masquer des feuilles en vba
Réponses
1
Affichages
153
sylvanu
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
170
cathodique
  • Résolu(e)
XL 2016 masquer/afficher des feuilles
Réponses
6
Affichages
209
eastwick
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
502
dadaze
D
D
  • Résolu(e)
Microsoft 365 Macro VBA pour copier des feuilles particulières
2
Réponses
21
Affichages
971
driss Kor
D
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
72
Didierpasdoué
D
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
315
Yogean
Y
  • Question Question
XL 2019 problème sélection feuille en VBA
Réponses
7
Affichages
407
ARaul
R
  • Question Question
Microsoft 365 Protéger les mots de passe
2
Réponses
17
Affichages
592
Phil69970
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
438
sylvanu
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
614
AtTheOne
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
316
KTM
N
  • Question Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
357
Nonoo
N
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
845
Nel'
N
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
745
candido57
C
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
309
vgendron
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
502
Dranreb
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
509
pat66
P
S
  • Résolu(e)
Microsoft 365 Extraire les différences entre 2 colonnes
Réponses
7
Affichages
177
Sissou71
S
  • Question Question
Microsoft 365 Comment exporter certaines feuilles d'un classeur dans un nouveau classeur.
Réponses
2
Affichages
431
Jacky67
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…