Critères pour Autofilter

[coconut]

Je souhaiterais que mes critères criteria1 et criteria2 dans une méthode Autofilter prennent la valeur date d'une cellule précédé d'un "<=" pour l'un et d'un ">=" pour l'autre. Ceci permettant de modifier les critères depuis la feuille excel (voire depuis un formulaire) sans avoir à retoucher la macro.

 

[Catrice]

Re : Critères pour Autofilter

Bonsoir,

Il faut un peu bricoler le format des dates (qui sont converties à la volée en format US)

Sub Test()
Range("A1").AutoFilter Field:=2, Criteria1:=">=" & Format(Range("D1"), "mm/dd/yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(Range("E1"), "mm/dd/yyyy")
End Sub

Voir fichier joint.

 

[Staple1600]

Re : Critères pour Autofilter

Bonsoir

La même en plus court...

Sub Test()
Range("A1").AutoFilter 2, ">=" & Format(Range("D1"), _
"mm/dd/yyyy"), xlAnd, "<=" & Format(Range("E1"), "mm/dd/yyyy")
End Sub

 

[Hervé]

Re : Critères pour Autofilter

bonsoir 🙂

je profite de ce post pour donner une petite astuce pour les format en vba.

lorsque l'on doit transformé un type de format en vba par la fonction format, on peut définir le type de format dans un string, puis le réutiliser. Par exemple :

Dim f As String

f = "mm/dd/yyyy"
MsgBox format(Range("D1"), f)

bien sur ceci est particulierement pratique lorsque l'on doit faire plusieurs modifications.

salut

 

[coconut]

Re : Critères pour Autofilter

Bonjour et merci à tous.