XL 2016 vba et somme prod

[joon49]

bonjour,

je voudrais en vba mettre une fonction sommeprod:

exemple :

If Month(Date) = "5" Then

cells(5,1)=sommeprod(.....)

Else

Cells(5, 1) = ""

End If

comment dois je procéder?

merci par avance

 

[Phil69970]

Bonjour @joon49

Je te propose

If Month(Date) = 5 Then
[A5] = Evaluate("SumProduct((B2:B4)*(C2:C4))") 'Ta formule somme Prod
Else
[A5] = ""
End If

Merci de ton retour

@Phil69970

 

[sylvanu]

Bonjour Joon, Phil,
Ou encore :

Sub Essai()
If Month(Date) = 5 Then
    Cells(5, 1) = Application.SumProduct([A1:A4], [B1:B4]) ' A adapter
Else
    Cells(5, 1) = ""
End If
End Sub

NB: Pas de parenthèses autour de 5 car "Month" renvoie un nombre.

 

[joon49]

Merci beaucoup de ta lumière

 

[Staple1600]

Bonsoir le fil

Pour les Ifophobes

Sub Essai_Ter()
Cells(5, 1) = Application.SumProduct([A1:A4], [B1:B4]) * -(Month(Date) = 5)
End Sub