Discussion :

[HERBINE]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Une simple formule devrai aller en E3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Somme($D$2:$D3)

Voir aussi ici

[Didier Gonard]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cordialement,

Didier

[neozenfragance]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cordialement,

Didier

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[Didier Gonard]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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