FILTRE VBA ET VARIABLES

[stephane]

Bonjour,

suite aux excellents conseils de sousou j'ai pu faire une belle macro seul
problème restant intégrer mes variables dans ma macro sutout quand je veux encadrer une plage de date :

à l'origine j'ai ça !

Selection.AutoFilter Field:=5, Criteria1:=">=01/01/2003", Operator:=xlAnd _
', Criteria2:="<=31/12/2003"

je voudrais remplacer le 01/01/2003 par une variable début
et le 31/12/2003 par une variable fin mais j'au un problème avec les " .

j'ai essayé ceci mais ça ne marche pas !

Selection.AutoFilter field:=5, Criteria1:>dep, Operator:=xlAnd ', Criteria2:=" < fin



Merci de votre aide.

Stephane.

 

[@+Thierry]

Bonjour Stéphane, le Forum

C'est assez simple sans plus de programmation que ces lignes, et une feuille dédiée pour recevoir les Critères "DateFrom" & "DateTo" :

Option Explicit

Sub DateAutoFilter()
Dim DateFrom As Long
Dim DateTo As Long
Dim WS1 As Worksheet, WS2 As Worksheet

With ThisWorkbook
Set WS1 = .Sheets(1)
Set WS2 = .Sheets(2)
End With

DateFrom = WS2.Range("A1")
DateTo = WS2.Range("A2")


WS1.Range("A1").AutoFilter Field:=5, Criteria1:=">=" & DateFrom, Operator:=xlAnd, Criteria2:="<=" & DateTo
End Sub

Donc il suffira d'avoir les deux date dans une autre feuille en "A1" et "A2"

Bon App
@+Thierry