XL 2010 Cacher les checkbox puis les colonnes avec bouton

Orson83 · 15 Février 2021

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.

fanch55 · 15 Février 2021

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

Orson83 · 15 Février 2021

fanch55 à dit:
typeof ou typename, même combat, les 2 sont valables, à votre discrétion ...

Merci pour la réponse.
Une dernière question et je clôturerai ce fil.
Concernant la compatibilité de Excel 2010 à Excel 365, quel typeof ou typename sera le plus adapté ?

fanch55 · 15 Février 2021

Tchotchodu31 à dit:
Merci pour la réponse.
Une dernière question et je clôturerai ce fil.
Concernant la compatibilité de Excel 2010 à Excel 365, quel typeof ou typename sera le plus adapté ?

Pas de préférence, le checkbox peut répondre à plusieurs Typeof mais ne peut avoir qu'un seul typename .

Staple1600 · 15 Février 2021

Re

Je peux savoir pourquoi vous ignorez mes messages?

fanch55 · 15 Février 2021

Staple1600 à dit:
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é...

Orson83 · 15 Février 2021

fanch55 à dit:
Pas de préférence, le checkbox peut répondre à plusieurs Typeof mais ne peut avoir qu'un seul typename .

C'est noté. Merci encore fanch55 pour cette proposition.
Très bonne soirée.

Staple1600 · 15 Février 2021

Re

Merci fanch55 de m'avoir répondu.
Pourtant dans le fichier exemple, on pouvait lire

Tchothcodu31 à dit:
Feuil 3 (Coché = affiche la feuille. Décoché = cache la feuille)

C'est ce que j'ai testé avec mon module de classe.
Ce qui est pratique si on a N feuilles et N checkbox , non ?

fanch55 · 16 Février 2021

Staple1600 à dit:
Re

Merci fanch55 de m'avoir répondu.
Pourtant dans le fichier exemple, on pouvait lire

C'est ce que j'ai testé avec mon module de classe.
Ce qui est pratique si on a N feuilles et N checkbox , non ?

Tout à fait, si j'avais une profusion d'activex du même genre avec le même code, je serai passé par une classe.

XL 2010 Cacher les checkbox puis les colonnes avec bouton

Orson83

XLDnaute Impliqué

Pièces jointes

fanch55

Orson83

XLDnaute Impliqué

fanch55

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Orson83

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Discussions similaires