Calcul simple en VBA

Bonjour

Je crise ... J'ai un bug (Erreur de Compilation : sub ou fonction non définie ... C'est le "Sum" qui passe en surbrillance) sur une macro qui ma fois me paraissait fort simple sur le papier

ce que je veux faire : diviser par la valeur de "W3" la somme de "M3" à "V3" multipliés respectivement par 1, 2 ... jusqu'à 10

For i = 1 To 10
Sheets("feuil1").Cells(4, 8) = Sum(Sheets("Recap").Cells(3, i + 12) * i) / Sheets("Recap").Cells(3, 23)
Next i

En gros c'est (M3*1) + (N3*2) + (O3*3) ... etc ... jusqu'à + (V3*10) / le tout divisé par W3

Je débute en VBA ... et jusqu'à présent je n'avais pas trop touché les calculs ...

Merci d'avance

Ah j'ai plus le bug à l'instant en ayant ajouté WorksheetFunction. devant le sum

Mais le calcul est désespéramment faux

Bonjour,

Sub test()
    Dim i%, s
    With Sheets("Recap")
        For i = 1 To 10
            s = s + .Cells(3, i + 12) * i
        Next i
        Sheets("feuil1").Cells(4, 8) = s / .Cells(3, 23)
    End With
End Sub

Cordialement.

Bonjour MFerrand

Je viens juste de lire ta réponse (pas d'accès web)

J'étais également parvenu à mes fins de mon côté

Set f = Sheets("Recap")
t = 0
For i = 1 To 10
a = f.Cells(3, i + 12) * i
t = t + a
Next i
Sheets("feuil1").Cells(4, 8) = t / Sheets("Recap").Cells(3, 23)

Merci beaucoup en tout cas et bonne journée