Sum Product et petage de boulon...

[ConsultantJP]

Bonjour à tous,

De si bon matin, je deviens dingue avec une sumproduct en VBA. rien ne fonctionne a present j'ai erreur 2029 ... j'ai essayé la formule en worksheetfunction puis en evaluate ... rien n'y fait ...

Pouvez vous me venir en aide svp .

Mon code :

Dim X As Range
Dim Y As Range
Dim Z
Dim Stock
Z = DateCE.Value
Dim W As Range
Dim mot
Dim Controle

mot = "Contrôle et classement"

   Set X = Workbooks("Fichier.xls").Sheets("Charges").Range("A2:A65536")
   Set Y = Workbooks("Fichier.xls").Sheets("Charges").Range("M2:M65536")
    Set W = Workbooks("Fichier.xls").Sheets("Charges").Range("F2:F65536")

Stock = Application.WorksheetFunction.SumIf(X, DateValue(DateCE.Value), Y)
Controle = Application.Evaluate("=SUMPRODUCT((DateCE = X)*(W = mot)*(Y*1))")

Ps : La formule stock fonctionne très bien.

 

[pierrejean]

Re : Sum Product et petage de boulon...

Bonjour ConsultantJP

On serait plus a l'aise pour t'aider avec un petit fichier exemple !!

 

[ConsultantJP]

Re : Sum Product et petage de boulon...

Bonjour PierreJean,

Le vrai fichier pesant 9 mo car il est finalisé (me manque plus que ça )

J'ai préparé un petit fichier qui donne le meme résultat.

Le fichier ! fichier.xls est l'endroit ou se trouve les donnés

et le fichier module.xls celui ou se trouve le code normalement

En vous remercie encore !

 

[tototiti2008]

Re : Sum Product et petage de boulon...

Bonjour ConsultantJP, Bonjour PierreJean,

c'est normal que ton SUMPRODUCT ne fonctionne pas, la fonction, pour être évaluée, doit comporter les adresses de tes plages et les critères, donc un truc du genre :

Controle = Application.Evaluate("=SUMPRODUCT((" & DateCE & "= [Fichier.Xls]Charges!A2:A65536)*([Fichier.Xls]Charges!F2:F65536 = " & mot & ")*([Fichier.Xls]Charges!M2:M65536*1))")

 

[ConsultantJP]

Re : Sum Product et petage de boulon...

Merci tototiti2008 mais j'ai maintenant une erreur 2015 ... 🙁

 

[tototiti2008]

Re : Sum Product et petage de boulon...

Re,

bon, d'accord, j'avais pas testé 😉

et comme ça ?

Controle = Application.Evaluate("=SUMPRODUCT(([Fichier.Xls]Charges!A2:A65536=" & Datece & ")*([Fichier.Xls]Charges!F2:F65536="" & mot & "")*([Fichier.Xls]Charges!M2:M65536))")

 

[ConsultantJP]

Re : Sum Product et petage de boulon...

Pareil 🙁 toujours l'erreur 2015

 

[tototiti2008]

Re : Sum Product et petage de boulon...

Re,

bizarre, chez moi la dernière version marche (même si elle me renvoie 0 avec ton fichier exemple)

 

[pierrejean]

Re : Sum Product et petage de boulon...

Re

Elle ne produit pas d'erreur ce qui ne signifie pas qu'elle marche (0 n'est pas normal)
Pour ma part j'ai abandonné !!!

 

[tototiti2008]

Re : Sum Product et petage de boulon...

Re,

en effet, ce n'est pas normal

un dernier essai :

Controle = Application.Evaluate("=SUMPRODUCT(([Fichier.Xls]Charges!A2:A65536=" & CLng(CDate(Datece)) & ")*([Fichier.Xls]Charges!F2:F65536=""" & mot & """)*([Fichier.Xls]Charges!M2:M65536))")

 

[pierrejean]

Re : Sum Product et petage de boulon...

Re

Cette fois c'est bon !!
Bravo Tototiti
Je n'avais pas reussi a me depetrer de cette date (j'en etais a DATEVALUE) et ne pensais absolument pas a clng