SOMME SI ENS avec date

Bonjour,

Aprés plusieurs tests ne n'ai toujours pas réussi à trouver mon probléme.

j'ai la fonction suivante : =SOMME.SI.ENS(AK59:AK179;A59:A179;+A62;AI59:AI179;"<="&AJ62) , elle fonctionne trés bien.

je souhaite la transformer en VBA voir le code suivant:

Sub test2()
Dim T As Double
Dim Critere1 As String
Dim Critere2 As Date

    With Worksheets("controle papier")
        Critere1 = .Cells(62, 1).Value
        Critere2 = .Cells(62, 36).Value

        T = Application.WorksheetFunction.SumIfs(.Range("ak59:ak179"), _
        .Range("A59:A179"), Critere1, _
        .Range("Ai59:Ai179"), "<=" & Critere2)

        .Cells(62, 41).Value = T

    End With 
End Sub 

Sauf que mon code me renvoi 0, aprés vérification c'est cette partie qui ne fonctionne pas : .Range("Ai59:Ai179"), "<=" & Critere2)

j'ai fait le test suivant pour vérifier si le vba li bien les dates

Sub test()

If Cells(62, 35).Value <= Cells(62, 36).Value Then
Cells(62, 41).Value = "1"
Else
Cells(62, 41).Value = "0"
End If

End Sub 

la macro me renvoi bien 1

j'ai bien cherché sur le net, mais je ne trouve pas de solution et vue mon niveau en vba je suis désespéré.

Si quelqu'un a une solution, je suis preneur.

Merci de votre aide par avance.

cordialement

philippe

Bonjour,

Essaie comme cela

Sub test2()
Dim T As Double
Dim Critere1 As String, Critere2 As String
    With Worksheets("controle papier")
        Critere1 = .Cells(62, 1).Value
        Critere2 = Format(.Cells(62, 36).Value, "mm/dd/yyyy")
        T = Application.WorksheetFunction.SumIfs(.Range("AK59:AK179"), .Range("A59:A179"), Critere1, .Range("AI59:AI179"), "<=" & Critere2)
        .Cells(62, 41).Value = T
    End With
End Sub

A+

bonjour,

j'ai déja essayé rien à faire.

ci joint le fichier si tu souhaites regarder

merci

Moi aussi j'ai essayé

A+

bonjour Frangy

merci pour ton aide, ca à l'air d'être ok chez moi, je vais tester lundi au bureau

encore merci