A voir également:
- Créer un filtre pour une période de temps
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un groupe whatsapp - Guide
- Créer un compte instagram - Guide
- Photo filtre gratuit - Télécharger - Retouche d'image
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
20 mai 2016 à 10:55
20 mai 2016 à 10:55
Bonjour,
Exemple, plage a adapter:
sS j'ai bien compris, garde les lignes dont date inferieure ou egal a date+7
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
21 mai 2016 à 11:40
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
21 mai 2016 à 11:46
J'ai remplacé D7 par date et ça à l'air d'être ça ! YOUHOU :)
21 mai 2016 à 12:09
En effet, c'est moi qui ait panouille avec ce D7, qui provenait d'un autre code....... Sory
21 mai 2016 à 12:43