Masquer une colonne sous certaines conditions

[pascal35135]

Bonsoir,
Je cherche à masquer de façon automatique la colonne B si la valeur "x" existe en A1.
J'ai placé ce code pour la feuille considérée:
*************************************
''''lecture en A1
If Range("A1") = "x" Then
'''si A1=x alors masquer la colonne B
Columns("B:B").Select
Selection.EntireColumn.Hidden = True
Else
''Autrement visible
Selection.EntireColumn.Hidden = False

End If
***********************************
Cela ne fonctionne pas.
Quelqu'un a une idée?
Merci de votre aide

 

[pascal35135]

Re : Masquer une colonne sous certaines conditions (résolu)

Bonsoir Jean-Marcel,
Merci beaucoup, c'est exactement ce que je cherchais à faire.
Bonne soirée sous le soleil Breton.
Pascal

 

[pascal35135]

Re : Masquer une colonne sous certaines conditions

Jean-Marcel,
Si je peux abuser de tes compétences.
Comment fait on pour rajouter dans la boucle des nouvelles conditions.
Exemple
Si A1 = "X" B:B masquée
si C1 = "Y" F:F masquée
si ....
Merci

 

[pascal35135]

Re : Masquer une colonne sous certaines conditions

Merci,
C'est ce que j'avais fait mais est ce l'âge ou la fatigue, j'avais oublié de fermer une boucle.
Encore merci et peut être de nouvelles questions.