Filtre inversé

Jiheme · 23 Octobre 2011

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 · 23 Octobre 2011

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 · 23 Octobre 2011

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 · 23 Octobre 2011

Re : Filtre inversé

Bonsoir dra72, Kjin, re à tous

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

A+

Filtre inversé

Jiheme

XLDnaute Accro

Pièces jointes

dra72

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Jiheme

XLDnaute Accro

Discussions similaires