Note: The other languages of the website are Google-translated. Back to English

Comment utiliser la case à cocher pour masquer ou afficher la feuille de calcul dans Excel?

La case à cocher est une fonctionnalité utile dans Excel. Ici, je vais vous montrer comment utiliser une case à cocher pour masquer ou afficher une feuille de calcul spécifiée dans Excel.

Utilisez la case à cocher pour masquer ou afficher la feuille de calcul dans Excel


Utilisez la case à cocher pour masquer ou afficher la feuille de calcul dans Excel

Supposons que vous ayez une case à cocher nommée checkbox1 dans votre classeur. Lorsque vous décochez cette case, vous souhaitez qu'une certaine feuille de calcul soit masquée automatiquement dans ce classeur et affichez cette feuille de calcul tout en cochant la case. Veuillez le réaliser comme suit.

1. Ouvrez la feuille de calcul contient la case à cocher1, cliquez avec le bouton droit sur l'onglet de la feuille, puis cliquez sur Voir le code dans le menu contextuel.

Notez les: La case à cocher doit être la case à cocher ActiveX lors de l'insertion.

2. dans le Microsoft Visual Basic pour applications , veuillez copier et coller le code VBA ci-dessous dans la fenêtre Code. Voir la capture d'écran:

Code VBA: utilisez la case à cocher pour masquer ou afficher la feuille de calcul spécifiée

Private Sub CheckBox1_Click()
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet5").Visible = CheckBox1.Value
End Sub

Notez les: Dans le code, Sheet5 est le nom de la feuille de calcul que vous allez masquer ou afficher avec la case à cocher1. Veuillez remplacer le nom de la feuille de calcul selon vos besoins.

3. presse autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

Désormais, lorsque vous décochez la case1, la feuille de calcul spécifiée «Sheet5» sera automatiquement masquée. Et vous pouvez l'afficher en cochant la case. Voir la capture d'écran:


Articles connexes:


Les meilleurs outils de productivité de bureau

Kutools for Excel Résout la plupart de vos problèmes et augmente votre productivité de 80 %

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (11)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Comment faire plusieurs sur la même page ? Comment puis-je masquer la feuille 3 ou 4 avec une case à cocher ?
Ce commentaire a été minimisé par le modérateur sur le site
Sous-contrôle privé CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox ? Merci beaucoup!
Ce commentaire a été minimisé par le modérateur sur le site
Basta con copier la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.

Sous-contrôle privé CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Comment masquer ou afficher une feuille avec plusieurs cases à cocher ? Par exemple, la feuille "MainMenu" doit être masquée à moins que checkbox_1, checkbox_2 & checkbox_3 ne soient cochées.
Ce commentaire a été minimisé par le modérateur sur le site
Salut. Je suis très nouveau dans les contrôles ActiveX. J'essaie d'avoir plusieurs cases à cocher sur une feuille qui masqueront des feuilles spécifiques et pas toutes ou la même à chaque fois. Ces deux scénarios ont été mon expérience. Ce que je dois accomplir c'est :
CheckBox1 masque Sheet2
CheckBox2 masque Sheet3
CheckBox3 masque Sheet4
CheckBox4 masque Sheet5
CheckBox5 masque Sheet6
CheckBox6 masque Sheet7
CheckBox7 masque Sheet8
CheckBox8 masque Sheet9
Ce commentaire a été minimisé par le modérateur sur le site
Salut Jack,
Répétez simplement le code et modifiez les numéros des cases à cocher et les noms des feuilles. Essayez le code ci-dessous.

Sous-contrôle privé CheckBox1_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet2").Visible = CheckBox1.Value

End Sub

Sous-contrôle privé CheckBox2_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet3").Visible = CheckBox2.Value

End Sub

Sous-contrôle privé CheckBox3_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet4").Visible = CheckBox3.Value

End Sub

Sous-contrôle privé CheckBox4_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet5").Visible = CheckBox4.Value

End Sub

Sous-contrôle privé CheckBox5_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet6").Visible = CheckBox5.Value

End Sub

Sous-contrôle privé CheckBox6_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet7").Visible = CheckBox6.Value

End Sub

Sous-contrôle privé CheckBox7_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet8").Visible = CheckBox7.Value

End Sub

Sous-contrôle privé CheckBox8_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet9").Visible = CheckBox8.Value

End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Cristal,
Merci beaucoup... ça a parfaitement fonctionné !
Ce commentaire a été minimisé par le modérateur sur le site
Salut Crystal,
Existe-t-il une fonction qui inverserait cela; c'est à dire. la feuille est masquée sauf si la case est cochée ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Je cherche à afficher des pages avec des cases à cocher. Les Chekbox sont toutes sur la même feuille de calcul.
J'ai copié le premier code et l'ai dupliquer.

Sous-contrôle privé CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Eplucher, laver, désinfecter").Visible = CheckBox1.Value
End Sub

Sous-contrôle privé CheckBox2_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox1.Value
End Sub

Malheureusement, si je ne coche pas la première case ma seconde case ne fonctionne pas. Pourriez-vous m'aider svp
Ce commentaire a été minimisé par le modérateur sur le site
Salut Sky53,
il me semble que tu n'as pas changé CheckBox1.Value au nom de la case à cocher correspondante dans le deuxième code VBA.
Veuillez modifier la ligne suivante dans le deuxième code :
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox1.Value
à
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox2.Value
Il n'y a pas encore de commentaires postés ici

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL