Comment utiliser "Application.SumProduct" ?

Hello,

Pourriez-vous m'expliquer comment utliser "Application.SumProduct" s'il vous plaît ?

Car j'ai le message d'erreur suivant : Incompatibilité de type

J'ai lu l'aide en ligne mais je ne comprends que la moitié des explications :?

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim dte1 As Long, dte2 As Long   dte1 = InputBox("Date de début :") dte2 = InputBox("Date de fin :")   Dim tabP As Variant, tabB As Variant, tabC As Variant   tabP = Array(1, 2, 3, 4, 5, 6)   tabB = Range("b2:b65536")   tabC = Range("c2:c65536")   Range("h2") = Application.SumProduct((tabC = tabP(1)) * (tabB >= dte1) * (tabB <= dte2))

---

Merci par avance

Bonjour,

Sans avoir regarder ton code, la syntaxe est :

Code:

---

application.worksheetfunction.SumProduct

---

Ca ne fonctionne jamais chez moi "application.worksheetfunction"

Je suis toujours obligé d'enlever le "worksheetfunction"

EDIT: mais j'essaye toujours les deux à chaque fois

Peut-être un problème de références, va voir dans outils => references, décoches les références éventuellement manquantes. Regardes quelles références sont cochées, mais je ne suis pas sur que le problème vienne de là.
La formule est peut-etre incorrecte ?

Bonjour,

En VBA,Tu ne peux pas utiliser SUMPRODUCT avec worksheetfunction

Tu peux toutefois essayer avec la fonction EVALUATE....

Si j'ai un exemple dans mon grenier, je te l'envoie...:roll:

Remarque: on peut utiliser Application.la formule sans Worksheetfunction
la forme Application.Worksheetfunction.la formule est la syntaxe "des écoles"

Alors j'ai été dans Références, et voici ce qui est coché :

Visual Basic For Applications

Microsoft Excel 11.0 Object Library

OLE Automation

Microsoft Office 11.0 Object Library



Est-ce que je dois cocher d'autres références ?

Non, ça devrait suffire mais je reste étonné, peut-être que pour cette fonction, il faut suivre les conseils de Michel_M, mais j'aimerai savoir si pour les autres fonctions, ton echec est le même ?

Citation:

---

Envoyé par Michel_M

Bonjour,

En VBA,Tu ne peux pas utiliser SUMPRODUCT avec worksheetfunction

Tu peux toutefois essayer avec la fonction EVALUATE....

Si j'ai un exemple dans mon grenier, je te l'envoie...:roll:

Remarque: on peut utiliser Application.la formule sans Worksheetfunction
la forme Application.Worksheetfunction.la formule est la syntaxe "des écoles"

---

Ok tu me rassure

En revanche pour EVALUATE j'ai réussi mais j'aimerais m'en passer car ça me mets des formules dans les cellules

C'est pour ça que je veux utiliser directement Application.SumProduct

Citation:

---

Envoyé par casefayere

Non, ça devrait suffire mais je reste étonné, peut-être que pour cette fonction, il faut suivre les conseils de Michel_M, mais j'aimerai savoir si pour les autres fonctions, ton echec est le même ?

---

Pour les autres fonctions j'avais eu le même soucis, mais c'était une erreur de syntaxe

Donc la je pense que c'est pareil, j'ai mal utiliser SumProduct, mais je ne sais pas pourquoi :(

Donc j'espère que quelqu'un qui est habitué à utiliser cette fonction passe par là, afin qu'il voit ce qui est incorrect dans mon code

Citation:

---

Envoyé par wyzer

Ok tu me rassure

En revanche pour EVALUATE j'ai réussi mais j'aimerais m'en passer car ça me mets des formules dans les cellules

---

non ca ne met pas de formules dans les cellules
J'ai fait des fouilles "archélogiques" dans le grenier mais...

ci joint topo sur worksheet.function et evaluate de Laurent Longre ( pas trouvé de topos la dessus sur DVP) mais bon courage avec des variables dans un sumproduct !

http://xcell05.free.fr/pages/prog/ac...ksheetFunction

Ah donc je n'ai pas dû utiliser EVALUATE correctement

Moi j'ai fait ça :

Range("h2") = Evaluate("=SumProduct((condition)*(condition))")


EDIT: merci pour lien

Michel_M, ton lien m'as permis de résoudre mon soucis :ccool:

Merci à tous