XL 2016 Filtre automatique AUJOURDHUI() + X jours

Eric4709

XLDnaute Nouveau
Bonjour à tous,

Je sollicite la communauté pour la 1ère fois afin de trouver de l'aide à mon problème.

Je cherche une macro qui pourrait permettre d'effectuer un filtre, sur une colonne ne comprenant que date, affichant toutes date comprise entre (aujourd’hui + 28 jours) et (aujourd'hui + 35 jours).

J'ai tourné cela dans tous les sens mais cela ne veux pas.

J'espère que quelqu'un pourra m'aider.

Merci d'avance pour vos contributions.

Bonne soirée à tous
 
Solution
Bonsoir Eric,
En PJ un exemple simple issu de l'enregistreur de macro un peu bidouillé :
VB:
Sub Filtre()
Datemin = Date + 28
Datemax = Date + 35
    ActiveSheet.Range("$A$1:$A$44").AutoFilter Field:=1, Criteria1:= _
    ">=" & Format(Datemin, "mm/dd/yy"), Operator:=xlAnd, Criteria2:="<=" & Format(Datemax, "mm/dd/yy")
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Eric,
En PJ un exemple simple issu de l'enregistreur de macro un peu bidouillé :
VB:
Sub Filtre()
Datemin = Date + 28
Datemax = Date + 35
    ActiveSheet.Range("$A$1:$A$44").AutoFilter Field:=1, Criteria1:= _
    ">=" & Format(Datemin, "mm/dd/yy"), Operator:=xlAnd, Criteria2:="<=" & Format(Datemax, "mm/dd/yy")
End Sub
 

Pièces jointes

  • Eric.xlsm
    23.4 KB · Affichages: 6

Statistiques des forums

Discussions
312 177
Messages
2 085 976
Membres
103 076
dernier inscrit
LoneWolf90