boucle somme cellule avec celles qui précèdent

[Excel.Deb]

Bonjour la communauté,
Je voudrais réaliser une fonction qui réalise la somme de chaque cellule d'une colonne et l'additionner avec celles qui précédent,je voudrais savoir également comment appeler cette fonction dans mon tableau excel.
Ci-joint le code que j'ai réalisé(j'obtiens une erreur d'incompatibilité avec le type).
Merci pour vos éclaircissements.

 

[vgendron]

Bonjour,

Ton fichier exemple serait plus pratique qu'une photo du code
O1.range("A1").currentregion ===> tes données sont en ligne ou colonne? ou les deux?
si c'est en colonne : en P1=SOMME($O$1:O1), et tu tires la formule vers le bas

pour la macro, ton tableau est mal déclaré
dim tab1() as variant

mal rempli
tab1=O1.range("A1").currentregion.value

et mal utilisé
for i=lbound(tab1,1) to ubound(tab1,1)
somme=somme+tab(i,1)
next i

 

[Excel.Deb]

Bonjour,
y en a ceux qui se plaintent d'avoir publié le fichier directement pour la raison que les macros peuvent contenir des virus.
Sinon,merci pour les remarques ainsi que la solution.