SumProduct VBA Conditions

tototiti2008

XLDnaute Barbatruc

• 30 Octobre 2012

• #2

Re : SumProduct VBA Conditions

Bonjour djstroubi,

Dans ton classeur, tes plages achat, fait, produit et prix sont nommées ?
Il me semble déjà qu'avec Evaluate la formule ne doit pas commencer par "="

 

Vote positif 0 Vote négatif

D

djstroubi

Guest

• 30 Octobre 2012

• #3

Re : SumProduct VBA Conditions

Jai modifié les plages en
Set achat = Sheets("Entrée").Range("E4:E100")
Set vente = Sheets("Entrée").Range("F4:F100")
Set fait = Sheets("Entrée").Range("K4:K100")
Set Produit = Sheets("Entrée").Range("D4😀100")
Set prix = Sheets("Entrée").Range("H4:H100")

mais même sans le = devant sumproduct, cela ne fonctione pas

Cordialement

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Octobre 2012

• #4

Re : SumProduct VBA Conditions

Re,

Et sinon,

Dans ton classeur, tes plages achat, fait, produit et prix sont nommées ?

Cliquez pour agrandir...

C'est à dire, si tu vas dans le Gestionnaire de noms, ces noms achat, fait, produit et prix apparaissent-ils ?

et si non, est-ce que cette écriture fonctionne ?

Code:

pma.Caption = Evaluate("SumProduct((Entrée!D4:D100=""Euronext Milling Wheat"")*(Entrée!K4:K100=""Done"")*(Entrée!E4:E100)*(Entrée!F4:F100))")

 

Vote positif 0 Vote négatif

D

djstroubi

Guest

• 30 Octobre 2012

• #5

Re : SumProduct VBA Conditions

Re,
L'écriture que tu m'as donnée fonctionne.

Dans le Gestionnaire de noms, ces noms n'apparaissent pas. C'est ce qui pourrait provoquer l'erreur?

Déja merci
A+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 30 Octobre 2012

• #6

Re : SumProduct VBA Conditions

Re,

Oui, tu lui demande d'évaluer une formule dans laquelle il y a des noms produit, fait, achat et prix.
Si ces noms n'apparaissent pas dans le gestionnaire de noms, c'est qu'il n'existent pas dans le classeur et il ne pourra pas évaluer ta formule
Je ne sais pas si l'écriture que je t'ai fournie te convient ou s'il faut absolument que tu utilises des noms dans ta formule, avec des noms ça pourrait donner

Code:

Thisworkbook.names.add "achat", Sheets("Entrée").Range("E4:E100")
Thisworkbook.names.add "fait", Sheets("Entrée").Range("K4:K100")
Thisworkbook.names.add "produit", Sheets("Entrée").Range("D4:D100")
Thisworkbook.names.add "prix", Sheets("Entrée").Range("H4:H100")

pma.Caption = Evaluate("SumProduct((Produit=""Euronext Milling Wheat"")*(fait=""Done"")*(achat)*(prix))")

 

Vote positif 0 Vote négatif

D

djstroubi

Guest

• 30 Octobre 2012

• #7

Re : SumProduct VBA Conditions

Re,

Je pensais qu'en définissant une range cela pouvais aussi fonctionner.

 

Vote positif 0 Vote négatif

D

djstroubi

Guest

• 31 Octobre 2012

• #8

Re : SumProduct VBA Conditions

Merci beaucoup

@+

 

Vote positif 0 Vote négatif