Traduction formule en VBA

Bonjour tout le monde,

Savez-vous comment traduire :

=SOMME.SI.ENS($H$61:$H$111;$D$61:$D$111; "=2019";$F$61:$F$111;"=" & C5)

En VBA ?

J'ai essayé :

Cells(10, 4) = Application.WorksheetFunction.SumIfs(Range("H61:H11"), Range("D61:D111"), "=2019",Range("F61:F111"), "=" & Range("C5")

Mais ça ne fonctionne pas. J'ai l'impression que c'est le Range(("F61:F111"), "=" & Range("C5")) qui ne marche pas.

Merci d'avance,

Simon

Bonjour Simon,

à tester,

r = Evaluate("SUMIFS(H61:H111,D61:D111, ""="" & 2019,F61:F111,""="" & C5)")

Bonjour i 20100,

Merci beaucoup pour ta proposition.

Ca fonctionne mais j'aimerais tirer ma formule vers le bas et que C5 deviennent C6, C7 etc.

Tu sais comment faire cela ?

re,

à tester,

Cells(10, 4).Formula = "=SUMIFS($H$61:$H$111,$D$61:$D$111," & """=2019""" & ",$F$61:$F$111,C5)"

Re,

Non ça ne dépend toujours pas de la case C5...

Aurais-tu une autre solution s'il te plait ?

Merci beaucoup pour ton aide,

Simon

Re,

Non ça ne dépend toujours pas de la case C5...

en cellule D10 j'obtiens la formule

=SOMME.SI.ENS($H$61:$H$111;$D$61:$D$111;"=2019";$F$61:$F$111;C5)

si je tire vers le bas, j'obtiens

=SOMME.SI.ENS($H$61:$H$111;$D$61:$D$111;"=2019";$F$61:$F$111;C6)

je ne vois pas ou est le problème ?

Re,

Okok donc le seul moyen est de tirer la formule vers le bas ?

J'aurais aimé que dans mon code, la cellule s'adapte à la ligne.

Merci,

Simon

re,

non tu peux faire comme ca,

Range("D10:D100").Formula = "=SUMIFS($H$61:$H$111,$D$61:$D$111," & """=2019""" & ",$F$61:$F$111,C5)"

Bonjour,

Super c'est parfait merci beaucoup pour ton aide

Simon

Rechercher des sujets similaires à "traduction formule vba"