Message box par rapport à des cellules

Bonjour,

J'ai une macro (qui a été faites par quelqu'un d'ici) qui me permet d'effectuer un filtre par rapport au mois et a l'année que je veux. Je rentre le mois et l'année que je veux dans les messages box. (voir ci-dessous)

Option Explicit
Sub Filtrer2()
    Dim ldateto As Long
    Dim ldatefrom As Long
    Dim LastRow As Long
    Dim ThisMonth As Integer
    Dim ThisYear As Integer

    ThisYear = Application.InputBox("Saisir Année", "Saisir l'Année ...", Type:=1)
    ThisMonth = Application.InputBox("Saisir Chiffre Mois", "Saisir le Chiffre du Mois ...", Type:=1)

    ldatefrom = DateSerial(ThisYear, ThisMonth, 1)
    ldateto = DateSerial(ThisYear, ThisMonth + 1, 0)

    With Sheet1
        .Range("D1").AutoFilter
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        With .Range("$A$1:$E$" & LastRow)
            .AutoFilter Field:=4, _
                        Criteria1:=">=" & ldatefrom, _
                        Operator:=xlAnd, _
                        Criteria2:="<=" & ldateto
        End With
    End With
End Sub

Serait-il possible que je n'ai plus besoin de rentrer le mois et l'année?

Mon mois et mon année serait sur un autre classeur déjà ouvert qui se nomme : "Calcul des OTD" et sur la feuille "Tram" dans 2 cellules distinctes. Mon mois en A5 et mon année en A6.

Merci d'avance!

Pitit Up

up up ?

Si y'a des intéressés j'ai trouvé la solution!

Je prend la valeur de A2 sur ma Feuil1 et B2 sur ma Feuil1.

Option Explicit
Sub Filtrer2()
    Dim ldateto As Long
    Dim ldatefrom As Long
    Dim LastRow As Long
    Dim ThisMonth As Integer
    Dim ThisYear As Integer

    ThisYear = Sheets("Feuil1").Range("B2").Value
    ThisMonth = Sheets("Feuil1").Range("A2").Value

    ldatefrom = DateSerial(ThisYear, ThisMonth, 1)
    ldateto = DateSerial(ThisYear, ThisMonth + 1, 0)

    With Sheet1
        .Range("D1").AutoFilter
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        With .Range("$A$1:$E$" & LastRow)
            .AutoFilter Field:=4, _
                        Criteria1:=">=" & ldatefrom, _
                        Operator:=xlAnd, _
                        Criteria2:="<=" & ldateto
        End With
    End With
End Sub

Pour info cette macro effectue un filtre sur la colonne "4" ici "D:D" selon la date que vous avez renseignés sur les cases A2 et B2 de la Feuil1.