VBA : Somme Prod

Bonjour,

Je continue mes performances en matières de VBA, en avançant à petit pas dans le domaine.

J'ai tenté d'utiliser la fonction "SumProduct" dans VBA sous excel 2003. Ayant recherché dans le forum, je n'ai rien trouvé de comparable à ce que je recherche actuellement.

Voici ma formule excel :

Code:

---

=SOMMEPROD((List>G6)*1;(List<=G7)*1)

---

Voici mon code qui fonctionne parfaitement, cependant je souhaite utiliser la fonction "SumProduct" associée avec. Auriez-vous une idée pour réponse à ma formule?

Code:

---

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

' Utilisation de somme production dans le cadre d'une Bell curve For z = 1 To 11   max_items = Cells(10, 5 + z) min_items = Cells(11, 5 + z) result = 0   For i = 1 To lcount   u = Cells(3 + i, 3) If u > max_items And u <= min_items Then a = 1 result = result + a End If Next i Cells(12, 5 + z) = result Next z

---

Cdlt.

PS: Cette étape intermédiaire, est pour l'utilisation de la Loi.normale.

du côté de

Code:

---

Application.SumProduct(Arg1,Arg2..)

---

Merci Mercatog,

Cependant, il n'accepte pas la configuration suivante :

Code:

---

1 2 3

List = range("B1:B56") Application.SumProduct((List>G6)*1,(List<=G7)*1 )

---

Il me génère une erreur à chaque fois.

Code:

---

1 2 3 4 5

Dim stList As String Dim Resultat As Double   stList = Range("B1:B56").Address Resultat = Evaluate("=sumproduct((" & stList & " >G6) *(" & stList & " <=G7))")

---

Excellent it works !