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.

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.

Lire la suite... Téléchargement Gratuit... Achat...

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!

Lire la suite... Téléchargement Gratuit... Achat...

Commentaires (26)

Pas encore de notes. Soyez le premier à évaluer!

Wayne Bailey

il ya environ 5 ans

#19936

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 ?

Répondre

Pierre Ramaut

il ya environ 5 ans

#21920

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

Répondre

Colin

il ya environ 4 ans

#24379

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?

Répondre

Kentthegreet Colin

il ya environ 4 ans

#24380

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.

Répondre

Kent l'accueil Colin

il ya environ 4 ans

#24381

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

Répondre

Rapport

il ya environ 3 ans

#28132

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

Répondre

cristal Ed

il ya environ 3 ans

#28133

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

Répondre

Rapport

Lou

il ya environ 3 ans

#29360

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.

Répondre

cristal Lou

il ya environ 3 ans

#29361

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.

Répondre

Rapport

Thérèse

il ya environ 3 ans

#30984

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!

Répondre

cristal Thérèse

il ya environ 3 ans

#30985

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.

Répondre

Rapport

Mai

il ya environ 3 ans

#31355

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.

Répondre

cristal Mai

il ya environ 3 ans

#31356

Ce commentaire a été minimisé par le modérateur sur le site

Salut, May,
Désolé je n'ai pas compris votre point.

Répondre

Rapport

angela

il ya environ 3 ans

#31530

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.

Répondre

cristal angela

il ya environ 2 ans

#31531

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.

Répondre

Rapport

Maggie

il ya environ 2 ans

#32767

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.

Répondre

Eric

il ya environ 1 an

#35115

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.

Répondre

etb1025

il ya environ 1 an

#35116

Ce commentaire a été minimisé par le modérateur sur le site

Répondre

Rapport

Wellington Mesquita

mois environ, il ya 5

#39373

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

Répondre

cristal Wellington Mesquita

mois environ, il ya 5

#39441

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 ?

Répondre

Rapport

Wellington Mesquita

mois environ, il ya 5

#39398

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

Répondre

cristal Wellington Mesquita

mois environ, il ya 5

#39445

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é.

Répondre

Rapport

Wellington Mesquita

mois environ, il ya 5

#39402

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"

Répondre

cristal Wellington Mesquita

mois environ, il ya 5

#39446

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

Répondre

Rapport

Des Roses

mois environ, il ya 2

#41159

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 ....

Répondre

cristal Des Roses

mois environ, il ya 2

#41471

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

Répondre

Rapport

Il n'y a pas encore de commentaires postés ici

Laisser vos commentaires

Publier en tant qu'invité

Se connecter

Nom (Obligatoire)

Email (Obligatoire)

Évaluez cet article:

Réinitialiser

0 Personnages

J'accepte les termes et conditions