Filtres à Double conditions dont une qui change

[WDAndCo]

[Résolu] Filtres à Double conditions dont une qui change

Bonsoir le Forum

Dans l'exemple joint j'ai cette Macro qui me filtre les données selon le lieu colonne A

Sub FAXA()
'
' FAX Macro
' Macro enregistrée le 26/11/2008 par 5513403E
'

'
    Sheets("FAX").Select
    Selection.AutoFilter Field:=1, Criteria1:="Arras"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Graissage").Select
    Range("R1").Select
End Sub

Mais je voudrais limiter cela aussi dans le temps, les 7 derniers jours. Et la je bloque !
J'ai essayer Selection.AutoFilter Field:=6, Criteria1:>= MoinsSept (Qui est en H1)
Si une personne pouvais m'éclairer de ces lumières ce serait très sympa !

D'avance merci
Amicalement Dominique

 

[skoobi]

Re : Filtres à Double conditions dont une qui change

Bonsoir WDandCo,

ceci devrait faire l'affaire:

Selection.AutoFilter Field:=6, Criteria1:=">=" & range("MoinsSept").Value2

 

[BOISGONTIER]

Re : Filtres à Double conditions dont une qui change

Bonjour,

Pour les dates, il faut inverser le jour et le mois:

Selection.AutoFilter Field:=5, Criteria1:=">=" &
Format([MoinsSept], "mm/dd/yyyy")

Selection.AutoFilter Field:=5, Criteria1:=">=" & --[MoinsSept]

http://boisgontierjacques.free.fr/fichiers/jb-filtreautomatique.xls

JB