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

Polie -
Polie - 21 mai 2016 à 12:43

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 ?

Afficher la suite

1 réponse

Réponse 1 / 1
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
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
1. 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
2. Polie
  
  Je crois que j'ai trouvé !!
  J'ai remplacé D7 par date et ça à l'air d'être ça ! YOUHOU :)
  
  0
  1. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717 > Polie
    
    Bonjour,
    
    En effet, c'est moi qui ait panouille avec ce D7, qui provenait d'un autre code....... Sory
    
    0
3. Polie
  
  Merci de ton temps. Ca m'a quand même bien débloquée !
  
  0

Newsletters