VBA - SommeProd et incompatibilité de type

[Int0x]

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]

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:

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]

Re : VBA - SommeProd et incompatibilité de type

Bonjour Int0x, Dranreb,

En faisant évaluer toute la formule :

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

A+