Fonction si avec calcul

Bonjour

Je reviens vers vous en espérant que quelqu'un trouve une solution à mon problème.

J'ai rédigé la macro suivante mais elle ne fonctionne pas. Aucun message d'erreur ne s'affiche.

Quelqu'un peut il y jeter un coup d’œil.

z = somme d'une plage

y = somme de la plage divisé par 4.

Et en fonction de se que contient la cellule m4, affecter le montant y au bonne cellules

Sub
Dim z As Integer
Dim y As Integer

z = WorksheetFunction.Sum(Feuil2.Range("D17:AA17"))
y = WorksheetFunction.Sum(z * 0.25)

    'Novembre
    If Sheets(1).Range("M4") = "10" Then
    Sheets(3).Range("G17") = y
    Sheets(3).Range("M17") = y
    Sheets(3).Range("S17") = y
    Sheets(3).Range("Y17") = y
    End If

 '20
    If Sheets(1).Range("M4") = "20" Then
    Sheets(3).Range("h17") = y
    Sheets(3).Range("i17") = y
    Sheets(3).Range("j17") = y
    Sheets(3).Range("k17") = y
    End If

End sub

Merci d'avance

bonjour,

lafonction worksheetfunction.sum permet de faire la somme des valeurs d'une plage, pas une multiplication.

calcule Y de cette façon

y=z * .25

Bonjour

Merci pour votre réponse,

Cependant même après changement, les montants ne s'affiche pas. La macro ne signale aucune erreur.

Merci

bonjour,

mets-nous ton fichier