Sommeprod un peu spécial en VBA

[Pierre-Henry]

Bonsoir à tous!
Voici mon problème : j'aimerais en VBA faire un "SOMMEDIV" (comprendre A2/C2 + A3/C3 +....)
Il s'agit en fait de vérifier l'integrité de données après exécution d'un programme....mes montants en colonne A sont en devise, la colonne C contient le taux de change.

Les formules Excel suivantes fonctionnent bien

=SOMMEPROD(A2:A6,1/(C2:C7))
{=SOMME(A2:A6/C2:C6)}

Mais je n'arrive pas à les adapter en VBA (l'idéal pour moi serait de calculer ce montant mais sans le mettre dans une cellule....sinon il y a toujours le .FormulaArray).

Ci-joint un fichier peut-être plus explicite, avec mes quelques tentatives infructueuses....

Merci d'avance!

 

[job75]

Re : Sommeprod un peu spécial en VBA

Bonsoir Pierre-Henry,

Ci-joint une solution.

Pour la macro, Application.SumProduct pose en général des problèmes, je préfère la méthode avec Evaluate :

Sub Montant_Eur()
Dim Val_Eur As Single
Val_Eur = Evaluate("SUMPRODUCT(A2:A8,1/C2:C8)")
MsgBox Val_Eur
End Sub

A+

 

[Pierre-Henry]

Re : Sommeprod un peu spécial en VBA

Super, ça fonctionne! (enfin tu le savais...)
Je ne connaissais pas cette commande, Evaluate, mais ça a l'air bien pratique....
Merci de ta réponse rapide & efficace.

A bientôt.