Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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


flèche bleue droite bulle Utilisez la case à cocher pour masquer ou afficher la feuille de calcul dans Excel


Supposons que vous avez 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 en cochant la case. S'il vous plaît, procédez comme suit.

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

Note: La case à cocher doit être case à cocher ActiveX lors de l'insertion.

2. dans le Microsoft Visual Basic pour applications fenêtre, s'il vous plaît copiez et collez 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

Note: Dans le code, Sheet5 est le nom de la feuille de calcul que vous allez masquer ou afficher avec la case à cocher 1. 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 case 1, la feuille de calcul spécifiée "Sheet5" sera automatiquement masquée. Et vous pouvez le montrer en cochant la case. Voir la capture d'écran:


flèche bleue droite bulleArticles connexes:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Aitor Hdz · 1 years ago
    Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? Muchas gracias!
    • To post as a guest, your comment is unpublished.
      Aitor Hdz · 1 years ago
      Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.

      Private Sub 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
  • To post as a guest, your comment is unpublished.
    Kourtney · 1 years ago
    How do you do multiple on the same page? How do i then hide sheet 3 or 4 with a checkbox?
    • To post as a guest, your comment is unpublished.
      Aitor Hdz · 1 years ago
      Private Sub 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