XL 2010 Cacher les checkbox puis les colonnes avec bouton

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

  • Exemple V1.xlsm
    38.7 KB · Affichages: 18
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...

fanch55

XLDnaute Barbatruc
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:

Discussions similaires

Réponses
21
Affichages
881

Statistiques des forums

Discussions
312 379
Messages
2 087 763
Membres
103 661
dernier inscrit
fcleves