Créer un filtre pour une période de temps

Polie -  
 Polie -
Bonjour ou bonsoir à tous,

Bon je me décide à demander de l'aide.
Je suis débutante sur macro et je souhaiterais en créer une qui filtre mon tableau avec toutes les dates antérieures jusqu'à date du jour + 7 jours.

Est ce que quelqu'un aurait quelques minutes de son temps à m'offrir ?
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Exemple, plage a adapter:
sS j'ai bien compris, garde les lignes dont date inferieure ou egal a date+7 

Sub Filtre()
    ActiveSheet.Range("$B$1:$B$97").AutoFilter Field:=1
    ActiveSheet.Range("$B$1:$B$97").AutoFilter Field:=1, Criteria1:="<=" & Format(D7 + 7, "mm/dd/yyyy")
End Sub
0
Polie
 
Bonjour,

Merci pour ton aide. Par contre je n'arrive pas à faire fonctionner ta macro. Je l'ai adapté de la manière suivante sur mon fichier :

Sub Filtre()

ActiveSheet.Range("$A$1:$S$19971").AutoFilter Field:=13
ActiveSheet.Range("$A$1:$S$19971").AutoFilter Field:=13, Criteria1:="<=" & Format(D7 + 7, "mm/dd/yyyy")
End Sub

J'ai étendu la séléction à tout mon tableau et ma colonne avec la date est la colonne M donc j'ai mis Field 13.

Ca m'active bien le filtre quand je lance la macro mais quand je clique dessus sur ma feuille pour voir les critères que cela a enregistré ça me met ça :

Antérieur ou égale à : 06/01/1900

Et

>> aucune option n'est sélectionnée
0
Polie
 
Je crois que j'ai trouvé !!
J'ai remplacé D7 par date et ça à l'air d'être ça ! YOUHOU :)
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Polie
 
Bonjour,

En effet, c'est moi qui ait panouille avec ce D7, qui provenait d'un autre code....... Sory
0
Polie
 
Merci de ton temps. Ca m'a quand même bien débloquée !
0

Discussions similaires

créer une adresse gmail pour une autre personne
Emma33000 -
Emma33000 -

2 réponses
Durée d'une diapositive animée
bibibibi99 -
bibibibi99 -

2 réponses