erreur formule sumproduct

[nina71287]

Bonsoir,

J'ai besoin d'aide sur le fonctionnement de sumproduct
ma formule marche trés bien si à la place de "sem" je met une valeur par contre si je mets la variable sem elle ne marche plus j'ai un message d'erruer incompatiiblité de type.

merci d'avance pr votre aide


Sub sommeprod()
Sheets(1).Select
Dim vResult As Variant
Dim sem As Integer
sem = InputBox("quelle semaine voulez vous,")
vResult = _
[SUMPRODUCT(($A$2:$A$12=sem)*($B$2:$B$12)*($C$2:$C$12))]
MsgBox vResult
End Sub

 

[job75]

Re : erreur formule sumproduct

Bonjour nina,

Il y a une variable, il ne faut pas utiliser les crochets mais Evaluate :

Sub sommeprod()
Dim vResult As Variant, sem As Integer
Sheets(1).Select
On Error Resume Next
sem = InputBox("quelle semaine voulez vous,")
If Err Then Exit Sub 'si on n'entre pas une valeur numérique
vResult = _
Evaluate("SUMPRODUCT(($A$2:$A$12=" & sem & ")*($B$2:$B$12)*($C$2:$C$12))")
MsgBox vResult
End Sub

A+

 

[soenda]

Re : erreur formule sumproduct

Bonsoir à tous

Evaluate ... "& maVariable &" ...

Merci job75 🙂

Ca, c'est du barbatruc 🙂

A plus