SOMME SI ENS avec date

**Philippe87420** · 27/06/2014, 10h49

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
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

**parmi** · 27/06/2014, 15h10

Bonjour,

Je viens de faire un test avec une formule et une macro identique à la tienne et ça fonctionne très bien.
Peut-être est-ce une erreur de valeur ?
Place un point d'arrêt (F9) sur une ligne après l'initialisation de tes critères et vérifie leurs valeurs.