Somme(_:_) en VBA?

baptbapt · 6 Juillet 2006

Bonjour

A B

0
1
1
1
1 10 somme(A1:A10)
1 11 somme(A2:A11)
2 11 somme(A3:A12)
2 12 ...
0 11
1 12
1 11
1 11
2 10
0 12
2 14
0 15
2 16
1 14

Voila une partie de mes colonnes
Les valeurs de A sont des valeurs correspondant au nombre d'entry par plage de valeur.
Et B sont les valeurs obtenu par l'opération somme(_:_) sur un interval de 10 valeurs, sous excel

comment ecrire cette opération en VBA
La boucle d'itération, sa je sait faire.

Merci

dg62 · 6 Juillet 2006

Re : Somme(_:_) en VBA?

Bonjour Baptbapt

Code:

Sub cumul()
Dim i As Integer
Dim total As Long
Dim ind As Integer
Dim lig As Integer

lig = 10
ind = 0
total = 0
For j = 1 To 31 ' [COLOR="Red"]31 valeur pour mes essais a adapter à ton cas
' en fonction du nombre de valeurs à cumuler[/COLOR]
    For i = 1 To 10
        total = total + Range("A" & i + ind).Value
 
        Range("b" & lig).Value = total

    Next i
ind = ind + 1
lig = lig + 1
total = 0

Next j

End Sub

baptbapt · 6 Juillet 2006

Re : Somme(_:_) en VBA?

Bonjour didier

0
1
1
1
1
1 5
2 7
2 9
0 9
1 10
1 11
1 11
2 12
0 11
2 12
0 11
2 11

j'ai un décallage avec les valeurs que je devrais obtenir
la macro me calcul somme(A1:A10) en B10, alors quel devrais le faire en B5

dg62 · 6 Juillet 2006

Re : Somme(_:_) en VBA?

re

lig = 10

tu mets 5 à la place de 10 dans l'initialisation de la variable

baptbapt · 6 Juillet 2006

Re : Somme(_:_) en VBA?

Merci

avec Range("H" & lig-5).Value = total

sa marche aussi

merci

Somme(_:_) en VBA?

baptbapt

XLDnaute Occasionnel

dg62

XLDnaute Barbatruc

baptbapt

XLDnaute Occasionnel

dg62

XLDnaute Barbatruc

baptbapt

XLDnaute Occasionnel

Discussions similaires

Somme(_:_) en VBA?

baptbapt

XLDnaute Occasionnel

dg62

XLDnaute Barbatruc

baptbapt

XLDnaute Occasionnel

dg62

XLDnaute Barbatruc

baptbapt

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency