Somme cellules paires (VBA)

Bonjour

Je souhaite faire une addition d'une plage de taille variable par macro

sachant que je voudrais uniquement additionner les cellules paire entre F14 et la fin du tableau

le résultat se situera 3 cellules en dessous de la fin de tableau

J'ai vu que le formule sans macro serrait :

=SOMME((MOD(LIGNE(F14:F...);2)=0)*F14:F...)

j'ai donc essayer de l'adapter...mais il y a une erreur!

Dim y As Long
Worksheets(">Planning G + Budget").Select
y = ActiveSheet.Range("$A$14").End(xlDown).Row
ActiveSheet.Range("F" & y + 3).Formula = "=Sum((Mod(Row(F14:F" & y & ");2)=0)*F14:F" & y & ")"

Un peut d'aide serrais bien venu!

vincent

Bonjour,

Avec Range("F" & y + 3).Formula = "=Sumproduct((Mod(Row(F14:F" & y & "),2)=0)*(F14:F" & y & "))" ça marche.

J'ai utilisé SOMMEPROD plutôt que SOMME et tu avais mis ;2 comme diviseur au lieu de ,2.

A+

merci dachevid, la marcro fonctionne parfaitement!

vincent