Discussion :

[casefayere]

re bonjour à tou(te)s,

je n'arrive pas à comprendre où est mon erreur dans ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim lg As Integer, s
With Sheets("saisies")
lg = .Range("a5000").End(xlUp).Row
s = Application.WorksheetFunction.SumIfs(.Range("f3:f" & lg), .Range("b" & lg), "CPTE COURANT", _
.Range("a3:a" & lg), "<=Application.WorksheetFunction.EoMonth(Date, 0)")
MsgBox s
'sachant que ".Range("f3:f" & lg)" somme de valeur à effectuer
'sachant que ".Range("b" & lg)" 1ère plage a analyser
'sachant que ".Range("a3:a" & lg)" colonne au formatdate jj/mm/aaaa
 
End With
End Sub

je me retrouve avec une erreur 1004, impossible de lire la propriété sumifs de la classe worksheetfunction

Alors si une bonne ame pouvait se pencher sur mon problème, merci d'avance

[casefayere]

Je viens de voir seul ma grossière erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim lg As Integer, s
With Sheets("saisies")
lg = .Range("a5000").End(xlUp).Row
s = Application.WorksheetFunction.SumIfs(.Range("f3:f" & lg), .Range("b3:b" & lg), "CPTE COURANT", _ 
.Range("a3:a" & lg), "<=Application.WorksheetFunction.EoMonth(Date, 0)") 'ici
MsgBox s
'sachant que ".Range("f3:f" & lg)" somme de valeur à effectuer
'sachant que ".Range("b" & lg)" 1ère plage a analyser
'sachant que ".Range("a3:a" & lg)" colonne au formatdate jj/mm/aaaa
 
End With
End Sub

mais le résultat retourné est toujours 0, là je ne comprends plus

[casefayere]

J'ai recorrigé d'autres erreurs mais le résultat est toujours le meme 0

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim lg As Integer, s As Currency, dermois As String
dermois = Month(Date)
With Sheets("saisies")
lg = .Range("a5000").End(xlUp).Row
s = Application.WorksheetFunction.SumIfs(.Range("f3:f" & lg), .Range("b3:b" & lg), "CPTE COURANT", _
.Range("j3:j" & lg), "<=" & dermois & " & ")
MsgBox s
'sachant que ".Range("f3:f" & lg)" somme de valeur à effectuer
'sachant que ".Range("b" & lg)" 1ère plage a analyser
'sachant que ".Range("j3:j" & lg)" colonne qui donne le mois de l'opération
End With
End Sub

[casefayere]

Plus la peine de chercher, j'ai donné un format texte à la colonne J et ça fonctionne comme ça

Merci à ceux qui auront éventuellement commencé à regarder ce code

Bonne journée