Filtre inversé

Jiheme

XLDnaute Accro
Bonjour le Forum

N'ayant pas réussi à adapter la super Macro de PascalXLD, j'essaies de contourner le problème. Mais la réussite n'est pas au RDV!

Suivant le mois choisi en B1, je veux que toutes les colonnes correspondant aux mois suivant soient masquées et ce sur les deux parties du tableau (2010 et 2011).

J'ai ajouté une ligne qui grace à une formule prend la valeur 1 ou 0, le but est de masquer les colonnes où il y a 0.

Je ne reviens pas avant demain matin...

Merci
 

Pièces jointes

  • Test JM.xlsm
    18.5 KB · Affichages: 93

kjin

XLDnaute Barbatruc
Re : Filtre inversé

Bonsoir,
Macro événementielle dans le module de la feuille
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
    ActiveSheet.Columns.Hidden = False
    x = Month(DateValue("01/" & Target))
    Range(Cells(1, x + 2), Cells(1, 13)).EntireColumn.Hidden = True
    Range(Cells(1, x + 16), Cells(1, 27)).EntireColumn.Hidden = True
End If
End Sub
A+
kjin