FILTRE VBA ET VARIABLES

stephane · 17 Mai 2004

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 · 17 Mai 2004

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

FILTRE VBA ET VARIABLES

stephane

Guest

@+Thierry

Guest

Discussions similaires