Sumifs VBA

Bonjour je cherche à faire via un code vba un calcul équivalent au somme.si.ens mais j'ai en retour un message d'erreur "objet requis 424"

decred c'est le nom de ma première plage n2 à n6000 et compte3 le nom de ma deuxieme plage e2:e6000

Sub sumifs()

Dim tsales As Long

compte200 = "200"

compte209 = "209"

tsales = Application.WorksheetFunction.sumifs([debcred], [compte3], "=200", "=209")

Sheets("base").Range("c3") = tsales

End Sub

Quelqu'un peut m'aider svp?

MErci!

Bonjour,

decred ou debcred ?

j'ai bien écris debcred dans les 2 (faute de frappe dans le post), l'erreur ne vient pas de là

re,

à tester,

Sub Ma_Somme()
Dim tsales As Double
compte200 = "200"
compte209 = "209"
t = "SumProduct(((compte3 =""" & compte200 & """) + (compte3 =""" & compte209 & """)) * debcred)"
tsales = Evaluate(t)
Sheets("base").Range("c3") = tsales
End Sub

ps/

pour la syntaxe de SOMME.SI.ENS

t = "SUMIFS(debcred,compte3,""" & compte200 & """)+SUMIFS(debcred,compte3,""" & compte209 & """)"

Bonjour,

Merci pour cette réponse, mais la macro me retourne 0 alors que cela devrait retourner 9150.

Pouvez vous m'expliquer votre syntaxe?

La plage a sommé est debcred.

Egalement question supplémentaire:

Les valeurs comprises dans ma plage compte3 sont des nombres, quelle syntaxe doit-on utiliser pour dire que le critère pour faire la somme doit être compris entre 200 et 209?

Merci par avance pour votre réponse

re,

si les no. de compte sont des nombre,

Sub My_SUMIFS()
Dim tsales As Double, compte200 As Integer, compte209 As Integer, t as String
compte200 = 200
compte209 = 209
t = "SUMIFS(debcred,compte3,""" & compte200 & """)+SUMIFS(debcred,compte3,""" & compte209 & """)"
tsales = Evaluate(t)
Sheets("base").Range("c3") = tsales
End Sub

Sub My_SumProduct()
Dim tsales As Double, compte200 As Integer, compte209 As Integer, t as String
compte200 = 200
compte209 = 209
t = "SumProduct(((compte3 =" & compte200 & ") + (compte3 =" & compte209 & ")) * debcred)"
tsales = Evaluate(t)
Sheets("base").Range("c4") = tsales
End Sub

Super!!

Merci bcp c'est nikel

Bonne journée et au plaisir