Mois en cours et mois precedent

Bonjour

je voudrais faire un filtre dans mon tableau je voudrais remplacer le 11/30/2022 par le mois precedent

le 12/09/2022 la date du Jours

comme ca le mois prochain quand je lancerai la macro

à la place du 11/30/22 j'aurai 12/31/2022

et le 12/09/2022 j'aurai le mois en cours

pouvez vous m'aider

Sub filtre2() ' ' filtre2 Macro ' Dim Date1 As String, Date2 As String Date1 = (Month(Now)) Date2 = (Month(Now)) - 1 ' ActiveSheet.ListObjects("Table_DataTestGroups").Range.AutoFilter Field:=7, _ Operator:=xlFilterValues, Criteria2:=Array(1, "11/30/2022", 1, "12/9/2022", 0, _ "1/1/1900") End Sub

C'est bon j'ai trouver mon erreur

voici la solution

Sub filtre2()
'
' filtre2 Macro
'
Call filtre1
Dim Date1 As String, Date2 As String, Date3 As String, Date4 As String

Date1 = Range("A1").Value
Date2 = Range("B1").Value
Date3 = Format(Date2, "mm/yyyy")
Date4 = Format(Date1, "mm/yyyy")

'
    ActiveSheet.ListObjects("Table_DataTestGroups").Range.AutoFilter Field:=7, _
         Operator:=xlFilterValues, Criteria2:=Array(1, Date3, 1, Date4, 0, _
        "1/1/1900")
End Sub