somme et boucle macro

cookie57 · 17 Octobre 2007

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 · 17 Octobre 2007

Re : somme et boucle macro

Bonjour,

Avec un truc du genre :

Code:

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

Cordialement

mutzik · 17 Octobre 2007

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 · 17 Octobre 2007

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 · 17 Octobre 2007

Re : somme et boucle macro

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

somme et boucle macro

cookie57

XLDnaute Nouveau

Spitnolan08

XLDnaute Barbatruc

mutzik

XLDnaute Barbatruc

GPLIONEL

XLDnaute Occasionnel

cookie57

XLDnaute Nouveau

Discussions similaires