Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Filtrer en horizontal des dates, par mois...

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Trier par date Trier par votes
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 :
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
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 :

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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
231
job75
E
  • Résolu(e)
Microsoft 365 Filtre avancé et Critère de Date
Réponses
4
Affichages
250
eric72
E
C
  • Résolu(e)
Power Query Transposer plusieurs Tables avec Power Query
Réponses
4
Affichages
194
chermiti
C
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
302
Hecatonchire
H
C
  • Question Question
Autres SOMMEPROD(SOUS.TOTAL(103;DECALER( ... ça fait beaucoup pour moi...Lol
Réponses
2
Affichages
77
Christian0258
C
R
  • Question Question
Microsoft 365 Ecrire un texte dans une cellule sous condition et changer couleur ligne
Réponses
4
Affichages
198
Rikko14
R
B
  • Résolu(e)
Microsoft 365 Calcule durée moyenne : Formule et TCD
Réponses
6
Affichages
207
BSF
B
D
  • Résolu(e)
XL 2019 mfc petite date
Réponses
3
Affichages
102
DST
D
O
  • Résolu(e)
XL 2010 Dénombrement dates
Réponses
2
Affichages
196
OISEAU1
O
H
  • Question Question
Microsoft 365 Gestion des lots en FIFO
2
Réponses
16
Affichages
409
hbb
H
C
  • Question Question
Autres Je cafouille sur une RechercheV ou autres...
Réponses
7
Affichages
114
Christian0258
C
A
  • Résolu(e)
Microsoft 365 filtrer plusieurs valeurs
Réponses
6
Affichages
174
auloin
A
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
429
cathodique
C
  • Question Question
Autres Format conditionnel sur texte et numérique...
Réponses
2
Affichages
102
Christian0258
C
R
  • Question Question
Autres MOYENNE en supprimant les #N/A et les cases affichées vides sous ""
Réponses
12
Affichages
339
job75
B
  • Question Question
XL 2016 tableau suivi chantiers
Réponses
2
Affichages
146
berto
B
J
  • Question Question
Autres Planning
Réponses
8
Affichages
271
JFR
J
B
  • Question Question
XL 2016 problèmes de formules et liste déroulantes avec le planning
Réponses
1
Affichages
67
sylvanu
F
  • Question Question
Microsoft 365 Somme d'occurrence en fonction du lieu
Réponses
12
Affichages
370
gosselien
B
  • Résolu(e)
Autres Changer la couleur de fond de cellules.
Réponses
4
Affichages
233
BIBIX
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…