Filtre inversé

[Jiheme]

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

 

[dra72]

Re : Filtre inversé

Bonjour,

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

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

Cordialement.

 

[kjin]

Re : Filtre inversé

Bonsoir,
Macro événementielle dans le module de la feuille

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]

Re : Filtre inversé

Bonsoir dra72, Kjin, re à tous

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

A+