Filtre inversé

Jiheme

XLDnaute Accro
Supporter XLD
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
 

Fichiers joints

dra72

XLDnaute Occasionnel
Re : Filtre inversé

Bonjour,

Tu as inversé lignes et colonnes dans ton code
Essaie comme ceci:

Code:
For i = 2 To 29
If Cells(4, i) = 0 Then Columns(i).EntireColumn.Hidden = True
Next i
Cordialement.
 

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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas