Discussion :

[TonyRc]

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 :

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

=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 :

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

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.

[mercatog]

du côté de

Code :

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

Application.SumProduct(Arg1,Arg2..)

[TonyRc]

Merci Mercatog,

Cependant, il n'accepte pas la configuration suivante :

Code :

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

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

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

[mercatog]

Code :

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

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))")

[TonyRc]

Excellent it works !