Somme si ens VBA

bonjour

je souhaite écrire la fonction sommeensi en vba, mais le résultat de ma macro me renvoie #VALEUR!

Si joint la macro et le fichier

merci d'avance de votre aide

Philippe87

Sub sommeensi()

Dim Ligne As String

Ligne = 7

Do While Cells(Ligne, 3).Value <> "13"

Cells(Ligne, 4).Value = Evaluate("SUMIFS('contrôle running liste!$g$2:$g$122,'contrôle running liste!$d$2:$d$122,d$3,'contrôle running liste'!$i$2:$i$122,"">=""& Cells(Ligne, 2).Value,'contrôle running liste'!$i$2:$i$122,""<=""& Cells(Ligne+1, 2).Value,")

Ligne = Ligne + 1

Loop

End Sub

Salut,

Je pense avoir repéré des problèmes dans ta formule :

• Dans 'contrôle running liste' les données commencent ligne 3 et pas 2
• il manque des ' à la fin de 'contrôle running liste'
• As tu-testé ta formule avant de faire la macro? Parceque j'ai essayé et tu as 2 tests qui comparent des sommes de dates avec une seule date, ca pose surement problème.

Cldt,

Uras.

Bonjour

D'après moi il y a un pb dans la comptabilité des dates, celles extraites ayant des heures et des minutes les autres étant à ooh 00mn

Par ailleurs, si tu nommes tes zones de comparaisons et que tu enregistres en VBA la formule somme si ens lorsque tu la poses la première fois, il suffirait de la recopier du début à la fin et ce sera plus rapide qu'avec une macro qui défile toute les lignes

transmis à tout hasard

Cordialement

FINDRH

Bonjour,

Une autre proposition avec SOMMEPROD

A+

Merci Frangy

la macro s"execute trés bien avec sommeprod

cordialement

philippe87