[XL-2003] Cumul d'une colonne en VBA [Résolu]

[HERBINE]

Bonsoir
j'ai un problème avec la colonne E je n'arrive pas à faire le cumul de la colonne D.

Code :

Cells(i, 5).Value = Cells(i, 4).Value + Cells(3, 4).Value

merci pour votre aide
bien cordialement
HERBIN

[jfontaine]

Bonjour,

Je ne comprend pas ce que tu veux faire.
Peux tu expliquer

[HERBINE]

a partir de la colonne D je siuhaite faire le cumul sur la colonne E
colonne D
45 454,55
45 454,55
41 322,31
40 980,81
31 046,07
et obtenir les résultats suivants sur la
colonne E
45 454,55
90 909,10
132 231,41
173 212,22
204 258,29
merci

[bbil]

Une simple formule devrai aller en E3

Code :

=Somme($D$2:$D3)

Voir aussi ici

[Ormonth]

Bonjour,

Code :

Cells(i, 5) = Cells(i, 5 - 1) + Cells(i + 1, 5- 1)

cordialement,

Didier

[neozenfragance]

Envoyé par Ormonth

Bonjour,

Code :

Cells(i, 5) = Cells(i, 5 - 1) + Cells(i + 1, 5- 1)

cordialement,

Didier

Bonjour,

Code :

Cells(i, 5) = Cells(i, 5 - 1) + Cells(i - 1, 5)

pour i >= 2 et Cells(1, 5) = Cells(1, 5 - 1)

plutôt, non ?

Cordialement,
n.

[Theze]

Bonjour,

De cette façon peut être ?

Code :

1
2
3
4
5
6
 
Cells(1, 5) = Cells(1, 5 - 1)
 
For i = 2 To 5
    Cells(i, 5) = Cells(i - 1, 5) + Cells(i, 5 - 1)
Next i

Hervé.

[Ormonth]

Bonjour,

Bien vu !
Euh, les 2 premiers sont faux / la demande... ainsi ?

Code :

1
2
3
4
5
6
7
Sub OK()
Dim I
 
For I = 2 To 6
    Cells(I, 5) = Cells(I - 1, 5) + Cells(I - 1, 5 - 1)
Next I
End Sub

qui retourne :

Code :

1
2
3
4
5
6
7
8
col D          Col E
45 454,55	
45 454,55	45454,55
41 322,31	90909,1
40 980,81	132231,41
31 046,07	173212,22
	        204258,29

Edit : oups , Theze, non rafraîchi...

cordialement,

Didier

[Pierre Fauconnier]

Salut.

Pour le fun et sans boucle

Code :

1
2
  Range("e2:e5").Formula = "=sum($d$2:$d2)"
  Range("e2:e5").Value = Range("e2:e5").Value

La deuxième ligne pouvant être virée si on veut garder la dynamique.

[Ormonth]

Pour le fun et sans boucle

Pas seulement, vu que dans ce cas, on écrit des formules dans la feuille qui réagiront en conséquence, il faudrait qu'Herbine précise sa finalité alors .... car effectivement il pourrait se passer de VBA sauf si toute sa construction est dynamique en VBA justement, à lui de jouer

cordialement,

Didier

[Pierre Fauconnier]

Pour le fun...

Pas seulement, en effet.

L'avantage principal de passer la formule en VBA est que l'on sort la logique du code vba. On peut donc exploiter ce code pour toute situation où l'on doit boucler afin de placer des valeurs dans des cellules, puisqu'il suffit de créer la formule en Excel puis de la traduire en VBA et de la passer au code.

On évite dès lors les boucles, les blocs IF Endif, ...

Les seules "difficultés" étant alors de trouver la ligne d'arrêt et de la passer aux adresses de plage et à la formule.

De plus, on limite le code VBA au minimum (normal, on n'est pas des programmeurs mais des utilisateurs d'Excel) et on limite le risque de bugs (moins il y a de code, moins il y a de risques de bugs).

Petit plus intéressant: Sur de grandes plages, la vitesse d'exécution par rapport à une boucle n'est pas à négliger.