XL 2019 Masquer ou afficher des colonnes sous condition d'une valeur de cellule avec bouton

[StephL]

Bonjour

J'ai besoin de votre aide
Je voudrais savoir s'il serait possible de masquer toutes les colonnes contenant 1 sur la ligne 2 et de laisser afficher les colonnes contenant 0 toujours sur cette ligne 2
via un bouton.
Celui ci permettrait d'exécuter cette fonction ou en ré appuyant dessus d'annuler cette fonction.
En résumé dans cet exemple faire disparaître les colonnes ABCFH et ne laisser que les colonnes DEGIJ.

Merci d'avance pour votre réponse
Cordialement

 

[laurent3372]

Bonjour,

Voici un exemple. Il faut ajuster le range [A2:J2] en fonction des besoins réels.

Private Sub cbMasque_Click()
    Dim rng As Range
    For Each rng In [A2:J2]
        If rng.Value = 1 Then rng.EntireColumn.Hidden = Not rng.EntireColumn.Hidden
    Next rng
End Sub

Cordialement,
--
LR

 

[StephL]

Bonjour
un grand merci pour votre temps et pour votre réponse.
Cela fonctionne très bien.
Cordialement
SL

 

[StephL]

Rebonjour Laurent3372

J'ai une petite question:
Je n'arrive pas à mettre un nom sur cette macro lorsque je lui assigne un bouton.

J'ai ce message d'erreur et je ne comprends pas

Pourriez vous me dépanner svp
merci
Cordialement
SL

 

[laurent3372]

Private Sub Masquer_Démasquer()
    Dim rng As Range
    For Each rng In [A2:J2]
        If rng.Value = 1 Then rng.EntireColumn.Hidden = Not rng.EntireColumn.Hidden
    Next rng
End Sub

Private Sub Bouton1_Click()
    Masquer_Démasquer
End Sub

 

[StephL]

Bonjour

merci beaucoup
Cordialement
SL