VBA - SommeProd et incompatibilité de type

Int0x · 26 Juillet 2012

Bonjour à tous,

Ne trouvant pas solution à mon problème, je me permets de me tourner vers vous. Merci par avance pour votre aide précisieuse !

Mon souci vient d'un problème d'incompatibilité de type (Erreur d'exécution '13') sur la ligne suivante:

v_check = Application.WorksheetFunction.SumProduct(Sheets(n).Range("A12:A65000") = Sheets("BdD").Range("A" & i), Sheets(n).Range("C12:C65000") = Sheets("BdD").Range("L2"))

Je souhaite qu'une variable calcule un sommeprod à partir d'autres variables.

Sauriez-vous m'indiquer vers quelle piste me tourner ?

Par avance merci,
Int0x

Dranreb · 27 Juillet 2012

Re : VBA - SommeProd et incompatibilité de type

Bonsoir.
Vous ne pouvez pas faire effectuer le prétraitement matriciel des paramètres du SOMMEPROD en lui faisant analyser une expression VBA !
Mais vous devriez pouvoir lui passer des Evaluate. À essayer:

VB:

v_check = Application.WorksheetFunction.SumProduct( _
   Sheets(n).Evaluate("(A12:A65000=" & Sheets("BdD").Cells(1, "A").Value & ")*1"), _
   Sheets(n).Evaluate("(C12:C65000=" & Sheets("BdD").Cells(2, "L").Value & ")*1"))

À tester, bien sûr: sans classeur joint, je ne puis.
Cordialement.

job75 · 27 Juillet 2012

Re : VBA - SommeProd et incompatibilité de type

Bonjour Int0x, Dranreb,

En faisant évaluer toute la formule :

Code:

v_check = Evaluate("SUMPRODUCT((" & Sheets(n).Name & "!A12:A65000=BdD!A" & i & ")*(" & Sheets(n).Name & "!C12:C65000=BdD!L2))")

A+

VBA - SommeProd et incompatibilité de type

Int0x

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

VBA - SommeProd et incompatibilité de type

Int0x

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency