somme et boucle macro

[cookie57]

Bonjour le forum,

J'ai une macro qui boucle du style :
For I=7 to 15
If cells(I,20)<>0 then
Msgbox("error")

je souhaiterais qu'en plus il fasse la somme des différentes cellules passées en revue. (cad qu'il additionne la valeur de la cellule (7,20) + cellule (8,20)+...+cellule(15,20) et stocke ce résultat quelque part.

Comment faire cela??
d'avance merci

 

[Spitnolan08]

Re : somme et boucle macro

Bonjour,

Avec un truc du genre :

 For I=7 to 15 
If cells(I,20)<>0 then Msgbox("error")
Result=Result+Cells(i,20)
Next

Cordialement

 

[mutzik]

Re : somme et boucle macro

bonjour cookie57 (pour moselle ?)

tu rajoutes
avant ton for I ...
sommeValeurs = 0

dans ta boucle
sommeValeurs = sommeValeurs + cells(I,20)

après ton next I
range("A15") = sommeValeurs
ou msgbox sommeValeurs

Salut Spit, toujours en phase ...
ou ...

 

[GPLIONEL]

Re : somme et boucle macro

Bonjour cookie57

dans ta boucle tu peux peut-être saisir
x=x+activecell
et à la fin de ta macro définir une cellule par exemple A1 pour lui donner la valeur !

range("a1")=x

 

[cookie57]

Re : somme et boucle macro

merci, ca roule!!
pour mutzig, mosellan de Metz!!!