Filtrer-Imprimer le résultat du filtre par macro

Ayant trouve un fil du 19 novembre 2006 dans lequel MichDenis explique ça
trés bien, je vais essayer de reproduire sa solution.
Je reviens plus tard.



"ManBas" <nonospamMaBas@wanadoo.fr> a écrit dans le message de news:
unFROibNHHA.992@TK2MSFTNGP06.phx.gbl...

Bonjour à tous,

J'ai deux colonnes "date": une "date création" et une "date modification".
Je voudrais par macro:
- filtrer la "date création"
- imprimer le résultat du premier filtre,
- que ce filtre soit reporté automatiquement sur la colonne "date
modification",
- imprimer le résultat du nouveau filtre.

Dim DateCreate
DateCreate = InputBox("date au format jj/mm/aaaa")
Range("j1") = DateCreate
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Format(Range("j1"),
"jj/mm/aaaa")

Mais bon ça ne fais pas même pas le premier filtre.
Merci de votre aide.
A+

Super! Je confirme que la solution existe dans ce fil du 19 novembre
(Gaston-MichDenis)

Dim Ddebut As Date
Dim DFin As Date
Dim DateCreate As Date
DateCreate = InputBox("date au format jj/mm/aaaa")
Range("j1") = DateCreate
'En supposant que j1 soit une cellule
'ayant une date reconnu par excel
Ddebut = Range("J1") - 1 'le critère
DFin = Range("J1") + 1
With Range("J1").CurrentRegion
.AutoFilter Field:=1, Criteria1:=">" & Ddebut * 1, _
Operator:=xlAnd, Criteria2:="<" & DFin * 1
End With

Merci à tous les cadors de ce forum!

"ManBas" <nonospamMaBas@wanadoo.fr> a écrit dans le message de news:
unFROibNHHA.992@TK2MSFTNGP06.phx.gbl...

Bonjour à tous,

J'ai deux colonnes "date": une "date création" et une "date modification".
Je voudrais par macro:
- filtrer la "date création"
- imprimer le résultat du premier filtre,
- que ce filtre soit reporté automatiquement sur la colonne "date
modification",
- imprimer le résultat du nouveau filtre.

Dim DateCreate
DateCreate = InputBox("date au format jj/mm/aaaa")
Range("j1") = DateCreate
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Format(Range("j1"),
"jj/mm/aaaa")

Mais bon ça ne fais pas même pas le premier filtre.
Merci de votre aide.
A+

Bonsoir,

Qq de filtre auto sur Dates:

http://cjoint.com/?blvPY18Y3K

Sub filtre1Date()
[A5].AutoFilter field:=5, Criteria1:=--Range("A1")
End Sub

Sub FiltreDateInputBox()
d = InputBox("quelle date?")
[A5].AutoFilter field:=5, Criteria1:="=" & Format(d, "mm/dd/yyyy")
End Sub

Sub filtreSup1Date()
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(CDate("21/10/1970" ))
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(Range("A1"))
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(CDate("21/10/1970")
+ 30)
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(Date)
' date du jour
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(Date + 30)
End Sub

Sub filtre2Dates()
[A5].AutoFilter field:=5, _
Criteria1:=">" & CDbl(Range("E1")), Operator:=xlAnd, _
Criteria2:="<=" & CDbl(Range("E2"))
End Sub

Cordialement JB

Bonjour à tous,

J'ai deux colonnes "date": une "date création" et une "date modificatio n".
Je voudrais par macro:
- filtrer la "date création"
- imprimer le résultat du premier filtre,
- que ce filtre soit reporté automatiquement sur la colonne "date
modification",
- imprimer le résultat du nouveau filtre.

Dim DateCreate
DateCreate = InputBox("date au format jj/mm/aaaa")
Range("j1") = DateCreate
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Format(Range("j1"), "jj/mm/ aaaa")

Mais bon ça ne fais pas même pas le premier filtre.
Merci de votre aide.
A+

Merci JB. Impressionnant de rigueur et d'exhaustivité.


"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1168548172.532552.41570@77g2000hsv.googlegroups.com...
Bonsoir,

Qq de filtre auto sur Dates:

http://cjoint.com/?blvPY18Y3K

Sub filtre1Date()
[A5].AutoFilter field:=5, Criteria1:=--Range("A1")
End Sub

Sub FiltreDateInputBox()
d = InputBox("quelle date?")
[A5].AutoFilter field:=5, Criteria1:="=" & Format(d, "mm/dd/yyyy")
End Sub

Sub filtreSup1Date()
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(CDate("21/10/1970"))
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(Range("A1"))
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(CDate("21/10/1970")
+ 30)
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(Date)
' date du jour
[A5].AutoFilter field:=5, Criteria1:=">=" & CDbl(Date + 30)
End Sub

Sub filtre2Dates()
[A5].AutoFilter field:=5, _
Criteria1:=">" & CDbl(Range("E1")), Operator:=xlAnd, _
Criteria2:="<=" & CDbl(Range("E2"))
End Sub

Cordialement JB

Bonjour à tous,

J'ai deux colonnes "date": une "date création" et une "date modification".
Je voudrais par macro:
- filtrer la "date création"
- imprimer le résultat du premier filtre,
- que ce filtre soit reporté automatiquement sur la colonne "date
modification",
- imprimer le résultat du nouveau filtre.

Dim DateCreate
DateCreate = InputBox("date au format jj/mm/aaaa")
Range("j1") = DateCreate
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=Format(Range("j1"),
"jj/mm/aaaa")

Mais bon ça ne fais pas même pas le premier filtre.
Merci de votre aide.
A+