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

laurent3372

XLDnaute Impliqué

Supporter XLD

• 20 Février 2020

• #2

Bonjour,

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

VB:

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

 

Pièces jointes

• Masquer-Démasquer.xlsm

  24.3 KB · Affichages: 41

Vote positif 0 Vote négatif

S

StephL

XLDnaute Nouveau

• 21 Février 2020

• #3

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

 

Vote positif 0 Vote négatif

S

StephL

XLDnaute Nouveau

• 21 Février 2020

• #4

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

 

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 21 Février 2020

• #5

VB:

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

 

Vote positif 0 Vote négatif

Solution

S

StephL

XLDnaute Nouveau

• 24 Février 2020

• #6

Bonjour

merci beaucoup
Cordialement
SL

 

Vote positif 0 Vote négatif