VBA Comment filtrer sur moins de 30 jours ?

Version imprimable

bonjour
Je chercher à filtrer la colonne n°24 sur plus de 30 jours mais j'arrive pas !
Pensez-vous que je dois changer dans mes DIM ( remplacer string par autre chose ? )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub Macro16()
'
' Macro16 du 21 05 2014 14h10 *** TESTS ***
 
Dim Wb As Workbook
Dim Lastline As Integer
Dim DateJourUS As String
Dim DateKPI09 As String
DateJourUS = Format(Now, "m/d/yyyy")
DateKPI09 = DateJourUS - 30
   '
   ' Ouvrir la feuille "Essai.xlsx"
   '
   Set Wb = ActiveWorkbook
   Workbooks.Open Filename:= _
   Wb.Path & "\Essai.xlsx"
   Sheets("Feuil1").Select
   Range("B2").Select
   Lastline = Range("B2").End(xlDown).Row
   Selection.AutoFilter
   ' Field = 24 = LAST SCAN DATE
    ActiveSheet.Range("$A$1:$AK$" & Lastline).AutoFilter Field:=24, Criteria1:= _
    "<=" & DateJourKPI09, Operator:=xlAnd, Criteria2:="<>"
 
    End Sub

Merci et bonne journée !

22/05/2014, 14h29
parmi

Bonjour,

Si ta date US n'est pas reconnue comme une date, mais seulement comme du texte (As String), tu ne pourras pas faire de calculs sur cette date.
Tu pourrais alors transformer la date inscrite au format texte (ou non reconnue comme date) en format Date dans une autre colonne et là, tu pourras l'utiliser comme date.
Regarde du côté de Left (Gauche), Mid (Stxt), Right (Droite) et DateValue (DateVal)
Entre parenthèses, ce sont les formules Excel, autrement les commandes VBA.

C'est resolu avec DateAdd("d", -90, .....)
par exemple pour avoir la liste des moins de 90 jours ( en colonne 24 ) par rapport à la date d'aujourd hui

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Macro16()
'
' Macro16 du 21 05 2014 14h10 *** TESTS ***
' pour corriger le KPI09
'
Dim Wb As Workbook
Dim Lastline As Integer
Dim Date1 As Date
Dim DateKPI09 As String
Dim DatelimiteKPI09 As String
Date1 = Date
DateKPI09 = Format(Date1, "m/d/yyyy")
MsgBox " DateKPI09 = " & DateKPI09
DatelimiteKPI09 = DateAdd("d", -90, DateKPI09)
DatelimiteKPI09 = Format(DatelimiteKPI09, "m/d/yyyy")
MsgBox " DatelimiteKPI09 = " & DatelimiteKPI09
   '
   ' Ouvrir la feuille "Essai.xlsx"
   '
   Set Wb = ActiveWorkbook
   Workbooks.Open Filename:= _
   Wb.Path & "\Essai.xlsx"
   Sheets("Feuil1").Select
   Range("B2").Select
   Lastline = Range("B2").End(xlDown).Row
   Selection.AutoFilter
   ' Field = 24 = LAST SCAN DATE
    ActiveSheet.Range("$A$1:$AK$" & Lastline).AutoFilter Field:=24, Criteria1:= _
    ">=" & DatelimiteKPI09, Operator:=xlAnd, Criteria2:="<>"
    End Sub