VBA masquer colonnes selon critère

[TOFatJOB]

Bonjour à tous,

je cherche une solution en VBA pour masquer toutes les colonnes à partir de la colonne T dont la cellule x3 ne contient par le critère choisi (en l'occurence le contenu de $A$1).

x étant le numéro ou nom de la colonne.

Exemple : de T3 à Z3 j'ai la valeur 2008 et de AA3 à AQ3 2009

Si je tape 2009 dans A1, je veux que seules les colonnes de A à S et AA à AQ s'affichent (masquer toutes les autres)

Lorsque le contenu de A1 change cela déclanche la macro événementielle, mais pour le reste ...

Merci d'avance de votre aide. TOF

 

[cbea]

Re : VBA masquer colonnes selon critère

Bonjour TOFatJOB,

Voici un exemple de ce que j'ai compris.
J'espère que cela correspondra à la demande.

 

[TOFatJOB]

Re : VBA masquer colonnes selon critère

C'est exactement cela, merci beaucoup de ton aide Cbea.

 

[TOFatJOB]

Re : VBA masquer colonnes selon critère

encore un petit souci,

le masquage fonctionne bien si on change la valeur de A1.

Par contre dès que j'agis sur une autre cellule, tout se ré-affiche...

et si je shunte

Cells.EntireColumn.Hidden = False

dans la macro, quand je modifie A1, les colonnes cachées précedemment ne reviennent pas.

Comment faire pour que la macro n'agisse que lorsqu'on modifie A1 ?

If Target.Address <> "$A$1" Then Exit Sub

je pensais que cette instruction était là pour çà ...

 

[jp14]

Re : VBA masquer colonnes selon critère

Bonjour

Il faut déplacer la ligne
Cells.EntireColumn.Hidden = False
et la mettre après
If Target.Address <> "$A$1" Then Exit Sub
Par contre les colonnes seront toujours masquées.

JP