Filtrer en horizontal des dates, par mois...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour filtrer des dates jours, placées sur une ligne, par mois...

voir fichier.

Merci pour votre aide.
Christian

 

[Chris401]

Re : Filtrer en horizontal des dates, par mois...

Bonjour

Pour commencer, enlève les "etc"... dans les colonnes à la fin de la ligne 11
Puis essaye :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$11" Then
Cells.EntireColumn.Hidden = False
Dercol = Range("A11").SpecialCells(xlCellTypeLastCell).Column
For I = 4 To Dercol
  Columns(I).EntireColumn.Hidden = Not Month(Cells(11, I)) = Month("1/" & Range("B11"))
  Next I
End If
End Sub

Cordialement
Chris

 

[JHA]

Re : Filtrer en horizontal des dates, par mois...

Bonjour à tous,

Avec un code de PascalXLD de 2005 du forum et pour faire plaisir à Rachid qui me demande de regarder le VBA
En ligne 10, j'ai inséré une formule:
=SI(MOIS(D$11)=MOIS(1&$B$11);1;"")

Cliquer sur le bouton puis choisir filtre puis 1 et filtrer



JHA

 

[Christian0258]

Re : Filtrer en horizontal des dates, par mois...

Re, le forum, Chris401,

Merci, Chris401, pour le boulot, ça correspond à mon attente.

Dis-moi, comment réafficher l'ensemble de tous les mois si besoin ?

Encore merci pour ton aide.

Bien à toi,
Christian

 

[Chris401]

Re : Filtrer en horizontal des dates, par mois...

Re

Je venais d'y penser.
Ajoute le mot TOUS à ta liste déroulante en B11
Nouveau code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$11" Then
Cells.EntireColumn.Hidden = False
Dercol = Range("A11").SpecialCells(xlCellTypeLastCell).Column
If Target = "TOUS" Then
Cells.EntireColumn.Hidden = False
End
End If
For I = 4 To Dercol
  Columns(I).EntireColumn.Hidden = Not Month(Cells(11, I)) = Month("1/" & Range("B11"))
  Next I
End If
End Sub

Chris

 

[Christian0258]

Re : Filtrer en horizontal des dates, par mois...

Re, le forum, Chris41,

oups pas vu JHA

Merci, Chris41 et JHA, pour vos solutions, beau boulot.

Bien à vous,
Christian