XL 2010 Cacher les checkbox puis les colonnes avec bouton

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 !

Orson83

XLDnaute Impliqué
Bonjour à tous,
Quelquefois une série de CheckBox ne se masque pas avec le masquage de colonnes. Pour éviter cela, je souhaiterai (peut-être à tort ?) associer le masquage des CheckBox avec le masquage des colonnes -> pour que le masquage des CheckBox intervienne avant le masquage des colonnes (pour éviter l'erreur d'affichage).
J'ai fait une macro qui fonctionne mais je ne parviens pas à grouper les CheckBox car j'en ai 24. Avez-vous une solution à me proposer ?
Je joins un fichier exemple dans ce post.
Merci pour votre aide.
 

Pièces jointes

Solution
Bonsoir à tous,
Pour garder la philosophie du code et de la conception :

VB:
'AFFICHER LE MENU
Sub AfficheMenu()
    Dim Elem As OLEObject
    With ActiveSheet
        For Each Elem In .OLEObjects
            Elem.Visible = TypeName(Elem.Object) = "CheckBox"
        Next
        .Range("J:M").EntireColumn.Hidden = False
        Application.Goto .Range("A1"), Scroll:=True
    End With
End Sub
'MASQUER LE MENU
Sub MasqueMenu()
    Dim Elem As OLEObject
    With ActiveSheet
        For Each Elem In .OLEObjects
            Elem.Visible = TypeName(Elem.Object) <> "CheckBox"
        Next
        .Range("J:M").EntireColumn.Hidden = True
        Application.Goto .Range("A1"), Scroll:=True
    End With
End Sub

J'aurai plutôt opté pour une...
Bonsoir fanch55

=>fanch55
Apparemment ce soir, je suis invisible 😉
Tu en penses quoi de la piste module de classe?
Soir @Staple1600 ,
Le module de classe est viable, mais le problème n'était pas d'afficher ou non des feuilles en gérant les clics des checkboxes, @Tchotchodu31 cherche seulement à les afficher/masquer au plus court . C'est vrai que par la suite, il faut gérer tous les checkbox_click 😉
Pour ma part, j'aurai bien tout mis dans une listbox à checkbox , basé sur l'existence des feuilles et leur visibilité...
 
Dernière édition:
- 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

Réponses
5
Affichages
200
Réponses
16
Affichages
673
Réponses
90
Affichages
6 K
Réponses
0
Affichages
131
Réponses
3
Affichages
405
Réponses
12
Affichages
682
Retour