Discussion :

[wyzer]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonjour,

Sans avoir regarder ton code, la syntaxe est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.worksheetfunction.SumProduct

[wyzer]

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

[casefayere]

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 ?

[wyzer]

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 ?

[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 ?

[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...

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

[wyzer]

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...

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

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

[Michel_M]

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