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

Masquer les lignes avec CheckBox

  • Initiateur de la discussion Initiateur de la discussion maval
  • 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 !

maval

XLDnaute Barbatruc
Bonjours

J'ai sur ma feuille deux CheckBox et une colonne "B" Avec Achat ou Recette j'aimerai que si je coche la CheckBox1 toutes les lignes avec recette son masquer et si je coche la CheckBox2 toutes les lignes achats sont masquer et si je décoche les CheckBox les lignes sont démasquer

Je vous remercie de votre aide

Cordialement

Maval
 

Pièces jointes

Re : Masquer les lignes avec CheckBox

Bonsoir néné,

Je te remercie seul petit problème je peut les masquer mais je ne peut plus les démasquer?

Ou alors je me suis mal expliquer et je m'en excuse

@+

Max
 
Re : Masquer les lignes avec CheckBox

Bonsoir maval, le forum,

Un essai dans le fichier joint (code dans le module de code de feuil1):
Code:
Option Explicit

Private Sub CheckBox1_Click()
  Traitement
End Sub

Private Sub CheckBox2_Click()
  Traitement
End Sub

Sub Traitement()
Dim i As Long
Application.ScreenUpdating = False
  For i = Application.WorksheetFunction.Match("zzzz", Range("B:B"), 1) To 3 Step -1
  Cells(i, "b").EntireRow.Hidden = _
    (CheckBox1 And Cells(i, "b") = "Recette") Or _
    (CheckBox2 And Cells(i, "b") = "Achat")
  Next i
Application.ScreenUpdating = True
End Sub
 

Pièces jointes

- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…