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

Comment utiliser la case à cocher pour masquer / afficher des lignes ou des colonnes dans Excel?

Supposons que vous deviez utiliser une case à cocher pour masquer ou afficher certaines lignes ou colonnes. Par exemple, lorsque la case à cocher Active X Control est cochée, certaines lignes ou colonnes sont affichées, sinon elles seront masquées. Cet article vous explique comment utiliser la case à cocher pour masquer / afficher des lignes ou des colonnes dans Excel avec des détails.

Utilisez la case à cocher pour masquer / afficher des lignes ou des colonnes avec le code VBA


Utilisez la case à cocher pour masquer / afficher des lignes ou des colonnes avec le code VBA

Le code VBA suivant peut vous aider à masquer / afficher certaines lignes ou colonnes avec une case à cocher.

1. Après avoir inséré une case à cocher Active X Control dans la feuille de calcul, cliquez avec le bouton droit de la souris sur la case, puis sélectionnez Voir le code dans le menu contextuel. Voir la capture d'écran:

2. dans le Microsoft Visual Basic pour applications fenêtre, copiez et collez le code VBA suivant dans la fenêtre Code.

Code VBA: utilisez la case à cocher pour masquer / afficher des lignes ou des colonnes

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Notes:

1. Dans le code VBA, [CD]. Colonne entière signifie que les colonnes C et D seront masquées ou affichées en cochant ou en décochant la case correspondante.

2. Pour masquer ou afficher certaines lignes telles que la ligne 6: 9, veuillez modifier le [CD]. Colonne entière à [6: 9]. Ligne entière dans le code VBA.

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

4. Désactivez maintenant le Mode de conception sous le Développeur onglet comme ci-dessous capture d'écran montré:

Désormais, lorsque la case est cochée, les lignes ou colonnes spécifiées sont affichées. Lorsqu'elle n'est pas cochée, les lignes ou colonnes spécifiées sont masquées.


Articles Liés:


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 (26)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen d'utiliser la case à cocher "Utiliser pour masquer/afficher des lignes ou des colonnes avec du code VBA" sur une feuille de calcul protégée ?
Ce commentaire a été minimisé par le modérateur sur le site
@Wayne :

Sous-contrôle privé CheckBox1_Click ()
ActiveSheet.Mot de passe non protégé :="xxxxx"
Rows("284:351").EntireRow.Hidden = Non CheckBox1
Mot de passe ActiveSheet.Protect :="xxxx"
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Il semble que ce code n'ira que dans une direction, c'est-à-dire qu'il ne les masquera pas et ne les affichera pas lorsqu'il est cliqué. Existe-t-il un moyen de corriger cela?
Ce commentaire a été minimisé par le modérateur sur le site
Nous avons le même problème, mais j'ai découvert que nous utilisions des contrôles de formulaire et non des contrôles ActiveX. Le code fonctionne parfaitement dans le bouton ActiveX Control Checkbox. Désactivez simplement le mode de conception pour pouvoir cliquer sur la case à cocher.
Ce commentaire a été minimisé par le modérateur sur le site
Nous avons le même problème mais trouvons un moyen de le faire fonctionner. Veuillez utiliser la case à cocher ActiveX Controls et non la case à cocher Form Control. Le code fonctionne parfaitement avec la case à cocher ActiveX.


Sous-contrôle privé CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Non CheckBox1
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

J'essaie d'utiliser ce code pour masquer/afficher sur une feuille distincte de la case à cocher. Que dois-je ajouter pour que cela fonctionne ? Merci d'avance.

Sous-contrôle privé CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Non CheckBox1
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonne journée,
Comme indiqué dans le code suivant, veuillez remplacer "Sheet4" par le nom de votre feuille séparée.

Sous-contrôle privé CheckBox1_Click ()
[Sheet4!C:D].EntireColumn.Hidden = Non CheckBox1
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

Salut, j'ai fait le code, ça marche bien mais quand j'essaie de faire la même chose dans plus d'une case à cocher sur la même feuille, ils fonctionnent "ensemble", ne masquent ou ne masquent les lignes que si les trois cases sont cochées.
J'essaie de faire en sorte que ces trois cases à cocher fonctionnent indépendamment les unes des autres. Et laissez les utilisateurs cocher une seule case à la fois.
Ce commentaire a été minimisé par le modérateur sur le site
Salut Lou,
Assurez-vous que les cases à cocher que vous avez créées sont des cases à cocher ActiveX Controls. Ces cases à cocher fonctionnent indépendamment dans votre feuille de calcul.
Merci pour votre commentaire.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

Existe-t-il un moyen de masquer une seule ligne. Si je mets 6: 9, toutes les lignes sont masquées, mais si je ne mets que 6, cela se traduit par une erreur. J'apprécierais votre aide, merci!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Veuillez remplacer la deuxième ligne du code par :
[6:6].EntireRow.Hidden = Non CheckBox1.
Merci pour votre commentaire.
Ce commentaire a été minimisé par le modérateur sur le site
J'essayais d'afficher les trois premiers rôles mais cela n'a pas fonctionné. Comment puis-je le faire, je le sais, la personne qui m'a envoyé ce fichier veut connaître mes compétences, je peux le résoudre ou non.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, May,
Désolé je n'ai pas compris votre point.
Ce commentaire a été minimisé par le modérateur sur le site
Cela a fonctionné, mais lorsque j'ai enregistré le fichier et que je l'ai rouvert, cela ne fonctionne pas. J'ai essayé de l'enregistrer en tant que feuille Excel Macro et en tant que classeur normal. Qu'est ce que j'ai mal fait? Je veux le donner à quelqu'un d'autre pour qu'il l'utilise et je ne veux pas qu'il soit confus.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Angela,Après avoir ajouté le code dans le classeur, cliquez sur Fichier > Enregistrer sous, choisissez où enregistrer le fichier, dans la boîte de dialogue Enregistrer sous, choisissez Excel Macro-Enabled Workbook (*.xlsm) dans la liste déroulante Type de fichier , et enfin cliquez sur Enregistrer. Envoyez ensuite ce classeur Excel compatible avec les macros à d'autres personnes.
Ce commentaire a été minimisé par le modérateur sur le site
Très utile, mais comment puis-je l'utiliser pour ne masquer qu'une partie de la feuille de calcul ? Je veux dire par exemple les cellules B2:B11, comment combiner ces deux fonctions ? Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Et si je voulais utiliser 3 cases à cocher différentes et que je voulais qu'elles basculent chacune en masquant différents groupes de lignes? J'ai essayé et regardé partout. Lorsque j'essaie de modifier ce code, les cases à cocher semblent interférer les unes avec les autres.
Ce commentaire a été minimisé par le modérateur sur le site
Et si je voulais utiliser 3 cases à cocher différentes et que je voulais qu'elles basculent chacune en masquant différents groupes de lignes? J'ai essayé et regardé partout. Lorsque j'essaie de modifier ce code, les cases à cocher semblent interférer les unes avec les autres.
Ce commentaire a été minimisé par le modérateur sur le site
Esse código oculta, mas não executa a reexibição quando desmarcar.

Alguém pode complementar por favor? Preciso de um código para ocultar e reexibir colunas indicadas.

Sous-contrôle privé CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Non CheckBox1
End Sub

Obrigado
Ce commentaire a été minimisé par le modérateur sur le site
Salut Welington Mesquita,
Ce code VBA peut atteindre :
Lorsque la case 1 est cochée, les colonnes C:D sont affichées ;
Lorsqu'elle est décochée, les colonnes C:D sont masquées.
Le code fonctionne bien dans mon cas. Quelle version d'Excel utilisez-vous ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour!
Espero que todos estejam bem !

Tenho uma situação onde preciso ocultar / reexibir a coluna utilizando o Control ActiveX quando solecionado o item.

Exemple : Tenho coluna com os noms : Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) e Variação (%), no entanto, que poder selecionar individual as colunas intercalando se necessário. Selecionar somente a coluna Realizado e Variação, mesmo não estando na sequencia.

Desde já agradeço,
Wellington
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Désolé je ne comprends pas ce que tu veux dire. Accepteriez-vous de fournir une capture d'écran de vos données ?
Vous devrez peut-être joindre une capture d'écran ou un exemple de fichier pour décrire plus clairement le problème que vous avez rencontré.
Ce commentaire a été minimisé par le modérateur sur le site
E para ocultar colunas no sequências ?
Exemple : A et C

Esta situação seria aplicado de que forma para A e C ?

"Sub CheckBox1_Click privé ()
[C:D].EntireColumn.Hidden = Aucun CheckBox1
Fin Sub"
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Le code VBA suivant peut vous rendre service. Veuillez essayer.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Bei mir werden die Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder in aktiv ist.

Mein Ziel ist es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Aide ....
Ce commentaire a été minimisé par le modérateur sur le site
Salut Rose,
Le code VBA suivant peut vous aider.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

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