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
 

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
 

Jiheme

XLDnaute Accro
Re : Filtre inversé

Bonsoir dra72, Kjin, re à tous

Merci à tous les deux, je vais adapter cela à mon projet définitif.

A+
 

Discussions similaires


Haut Bas