Discussion :

[Philippe87420]

bonjour

j'ai un soucis avec le code suivant, aprés plusieurs test il savére que le "critére2" ne soit pas pris en compte "<="

merci de votre aide par avance

philippe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Macro2()
Dim T As Double
Dim Critere1 As String
Dim Critere2 As Date
    With Worksheets("Feuil1")
        Critere1 = .Cells(59, 1).Value
        Critere2 = .Cells(59, 36).Value
        T = Application.WorksheetFunction.SumIfs(.Range("E59:E179"), _
        .Range("A59:A179"), Critere1, _
        .Range("AI59:AI179"), "<=" & Critere2)
        .Cells(59, 40).Value = T
    End With
End Sub

[parmi]

Bonjour,

Il faudrait savoir ce que tu as comme valeur ici

Critere2 = .Cells(59, 36).Value

Si c'est bien une date, ça devrait fonctionner parfaitement en autant que ta colonne AI contienne aussi des dates.

[Philippe87420]

bonjour Parmi

c'est bien une date d'autant que la colonne 36 correspond à la colonne Ai la franchement je ne comprends pas, je joins le fichier si tu veux regarder

merci pour ton aide

cordialement

[parmi]

Est-ce que tu peux dire ce qui ne va pas ou à quelle ligne tu penses que la formule ne fonctionne pas ?
Je teste ton bout de code et ça fonctionne bien...