Autofilter pour filtrer mois et année en cours

Bonjour à tous,

Je cherche dans la fonction autofilter ce qui permettrait avec les bons critères de filtrer dans une liste importante allant

de 2010 à 2015 le mois et l'année en cours, le mois précédent et enfin le mois prochain.

Exemple : Filtrer les dates correspondant à Août, juillet et septembre 2015

Je n'ai pas trouver les éléments sur internet qui me permettent de réussir seul

J'ai un exemple en pièce jointe

Je vous remercie d'avance pour votre aide

164exe1.xlsm (22.24 Ko)

Bonjour. Bienvenue sur le Forum

Exemple

Cordialement

508exe1.xlsm (23.80 Ko)

Merci beaucoup Amadéus pour ta réponse mais je n'ai pas été très claire dans ma description

En fait je recherche un bouton qui permette de faire la éxactement la même chose

Bonjour

Je viens de modifier le fichier initial

cordialement

Bonjour

Voir message précédent

Autre méthode avec extraction sur une autre colonne

Cordialement

316exe1-v2.xlsm (22.02 Ko)

Merci pour la réactivité, c'est très éfficace

C'est pratiquement cela mais est-il possible d'avoir le même bouton sans mettre les critères en H1 et F1

critère 1: n (mois en cours) calculer automatiquement par excel

Critère 2: N+1

Critère 3: N-1

Je peux le faire manuellement au travers d'excel (filtrer les mois) ce que je fait pendant les réunions pour connaitre les retards

Mais je voulais savoir je pouvais le faire au travers d'un bouton (VBA) pour plus de rapidité

Merci encore pour ton aide

Bonjour,

A tester.

Cdlt.

Bonjour

Avec les fichiers d 'Amadéus il suffit de mettre une formule dans F1 et dans H1 et c'est gagné, plus besoin de modifier ces critères

En F1

=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())-1;1)

En H1

=DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())+2;0)

Merci à tous le PB est presque résolu.......

En effet avec le code de Amadéus et l'astuce de Banzai64 c'est preque bon

J'ai ce bouton qui permet de filtrer tous les GO et G1

Sub Bouton58_Cliquer()

ActiveSheet.Range("$AC$6:$AC$800").AutoFilter Field:=28, Criteria1:=Array("G0", "G1"), Operator:=xlFilterValues

Maintenant je voudrais savoir si possibilité de lier la formule ci-dessus avec le formule de Amadéus ci-dessous

Ce qui permettrait appartir de ce bouton de sélectionner les G0 et G1 dans une colonne et d'afficher les mois (en cours, précédent et prochain) dans une autre colonne

Sub Filtre()

Sup = Range("f1").Value2

Inf = Range("h1").Value2

If Worksheets("Sheet1").AutoFilterMode Then

Worksheets("Sheet1").AutoFilterMode = FalseEnd If

Dates].AutoFilter Field:=1, Criteria1:=">" & Sup, Operator:=xlAnd, Criteria2:="<" & Inf

End Sub

En pièce jointe le fichier avec les explications j'ai mis en rouge ce que je souhaiterais ajouter et dans les colonnes j'ai mis en vert

ce que je dois obtenir si le bouton fonctionne

J'ai mis en commentaire ce que je souhaiterai ajouter dans la macro de Amadéus

Merci à tous pour votre aide

Je dois être à l'extérieure 30 min donc désolé si je ne réponds pas tout de suite

138exe1-5.xlsm (31.13 Ko)

Bonjour

A vérifier

Banzai c'est exactement cela mais quand j'essaye de le mettre sur ma feuille cela ne marche pas

Sub Filtre()

Sup = Range("AE1").Value2

Inf = Range("AF1").Value2

If Worksheets("NEW RTT").AutoFilterMode Then

Worksheets("NEW RTT").AutoFilterMode = False

End If

[Dates].AutoFilter Field:=25, Criteria1:=">" & Sup, Operator:=xlAnd, Criteria2:="<" & Inf

[Dates].AutoFilter Field:=28, Criteria1:=Array("G1", "G0"), Operator:=xlFilterValues

End Sub

Surement une érreur de ma part mais je ne vois pas laquelle

Merci

Bonjour

Comment est défini Dates ?

Sans ton fichier en cause, cela ne va pas être évident de trouver l'erreur

OK Banzai

Voir le fichier en pièce jointe

Si le filtre peut être en lien avec le G2 Backlog

29rtt-3.xlsm (239.96 Ko)

Bonjour

A vérifier

Super tout fonctionne

2 choses cependant:

1) Quand je fais le filtre il se fait sur la ligne 6 et une ligne marqué S apparait (Ce qui fait qu'il y a bien tous les G0 mais cette ligne aussi)

2) Si je mets les fonction dates sur une une feuille masquer appeler liste comment je l'indique dans le code

En attendant un grand merci et grand bravo pour la rapidité et la qualité des réponses

Bonsoir

Remplaces la macro actuelle par celle-ci

Sub Bouton58_Cliquer()
Dim Nblg As Long
Sup = Range("G1").Value2
Inf = Range("H1").Value2
If Worksheets("NEW-RTT").AutoFilterMode Then
  Worksheets("NEW-RTT").AutoFilterMode = False
End If
Nblg = Range("B" & Rows.Count).End(xlUp).Row
Range("B5:E" & Nblg).AutoFilter Field:=1, Criteria1:=">" & Sup, Operator:=xlAnd, Criteria2:="<" & Inf
Range("B5:E" & Nblg).AutoFilter Field:=4, Criteria1:=Array("G1", "G0"), Operator:=xlFilterValues
'[Dates].AutoFilter Field:=1, Criteria1:=">" & Sup, Operator:=xlAnd, Criteria2:="<" & Inf
'[Dates].AutoFilter Field:=4, Criteria1:=Array("G1", "G0"), Operator:=xlFilterValues
End Sub

Bonsoir Banzai

Sa fonctionne mais tout mes autres filtres ne fonctionnent plus quand j'utilise le code

Je comprends pas

En pièce jointe le fichier complet

Merci pour ton aide

24rtt5.xlsm (262.40 Ko)

Bonjour

A tester

Merci beaucoup Banzai, tout fonctionne parfaitement c'est géniale

Merci à tous pour vos différents méssages

Rechercher des sujets similaires à "autofilter filtrer mois annee cours"