"Sockage"

[plumazon]

Bonjour,

Voila mon probleme :
dans une itération je voudrais additionner le resultat pour chaque boucle...Mon code ci dessous vaudra plus qu'une explication :
Sub NbreTitre()
'
Dim x, y, z As Variant
Dim i As Integer
' Macro12 Macro
'

'
For i = 4 To 7
'z = z + z
x = (0.006* (i + 1))
y = (2618) / (2 + x)
z = (16255) / (2618) / (2 + (0.006 * i)))
'x = x + x

Range("a" & i + 33) = 2 + x
Range("b" & i + 33).Value = y
Range("c" & i + 33).Value = z

Next
Range("c42").Value = z
End Sub
je voudrais que dans la boucle je puisse avoir la somme des z plutot que d'avoir toutes les valeurs dans la colonne C et de faire la somme ensuite


Merci d'avance pour votre aide

 

[Nairolf]

Re : "Sockage"

Salut plumazon, salut le forum,

tu peux mettre cette ligne de code avant le next :
sommez = sommez + z
pour faire le calcul de la somme à chaque itération et après next :
Range("c42").Value = sommez
pour avoir la somme de tous tes z dans la cellule C42.

 

[plumazon]

Re : "Sockage"

...MERCI Nairolf c'est exactement ce que je voulais et merci de façon general au forum

Merci encore