Calcul de somme par plages . . .

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Calcul de somme par plages . . .

vbaright

Salut à tous,

Je souhaite de l'aide pour résoudre mon soucis.
Mes données sont sur la colonne A et je souhaite faire la somme de 5 cellules toutes les 5 cellules, et stocker les résultats sur la colonne B. Le code ci-dessous répond à ma demande : (j'ai eu une première aide pour obtenir ce code)

Sub Macro()

Dim varResultat As Single
For i = 1 To 5 'Colonne B
varResultat = 0 'Réinitialisation de la variable temporaire
For j = 1 To 5 'ColonneA
varResultat = varResultat + ActiveSheet.Cells((i * 5 - 5) + j, 1).Value
Next j
ActiveSheet.Cells(i, 2).Value = varResultat
Next i

End Sub

Si maintenant il y des dates, que doit-on rajouter et/ou modifier à ce code pour qu'il prenne en compte, dans le calcul des sommes, le nombre de semaines, c'est à dire que suivant le mois dans lequel on se base, il faut appliquer une somme de 4 ou 5.

Par exemple ici, pour le mois de Mars on fait la somme de 5 cellules, pour Avril la somme de 4 cellules, pour Mai la somme de 4 cellules, pour Juin la somme de 5 cellules

A B C
03/03/1997 6
10/03/1997 2
17/03/1997 1
24/03/1997 8
31/03/1997 7
07/04/1997 6
14/04/1997 5
21/04/1997 4
28/04/1997 2
05/05/1997 1
12/05/1997 0
19/05/1997 7
26/05/1997 2
02/06/1997 3
09/06/1997 5
16/06/1997 6
23/06/1997 9
30/06/1997 1

Merci d'avance à tous!

Publicité

galopin01

bonjour,
Le code suivant devrait faire l'affaire :

Code :

Sub Test()
Dim i%, Resultat As Single, v
Do Until IsDate(Cells(i + 1, 1).Value)
i = i + 1
Loop
Do While IsDate(Cells(i + 1, 1).Value)
v = Cells(i + 1, 1).Value
Do While Month(v) = Month(Cells(i + 1, 1).Value)
Resultat = Resultat + Cells(i + 1, 2).Value
i = i + 1
Loop
Cells(i, 3).Value = Resultat
Resultat = 0
Loop
End Sub

A+

---------------
roger

vbaright

Merci galopin01, ça marche...

vbaright

Je souhaite faire la moyenne et non plus la somme cette fois, qu'est ce qui change? merci bcp

galopin01

bonsoir,

Code :

Sub Test()
Dim i%, k%, Resultat As Single, v
Do Until IsDate(Cells(i + 1, 1).Value)
i = i + 1
Loop
Do While IsDate(Cells(i + 1, 1).Value)
v = Cells(i + 1, 1).Value
Do While Month(v) = Month(Cells(i + 1, 1).Value)
Resultat = Resultat + Cells(i + 1, 2).Value
i = i + 1
k = k + 1
Loop
Cells(i, 3).Value = Resultat / k
Resultat = 0
k = 0
Loop
End Sub

A+

---------------
roger

vbaright

Bonsoir,

Merci de nouveau!!

J'ai deux autres questions stp

Si je souhaite cette fois appliquer la fonction stdev (écart type)?
J'ai essayé cela mais c'est pas correct :

Cells(i,3).Value = StDev(Resultat)

Les résultats obtenus (somme, ou moyenne...) sont donnés à coté de la dernière cellule du mois, est-il possible d'avoir les résultats les uns sous les autres..?

Merci bcp pr ton aide

a+

galopin01

bonjour,

Sub Test()
Dim i%, j%, k%, Resultat As Single, v
Do Until IsDate(Cells(i + 1, 1).Value)
i = i + 1
Loop
Do While IsDate(Cells(i + 1, 1).Value)
v = Cells(i + 1, 1).Value
Do While Month(v) = Month(Cells(i + 1, 1).Value)
Resultat = Resultat + Cells(i + 1, 2).Value
i = i + 1
k = k + 1
Loop
'pour sortie en feuille 2, colonne 1
Worksheets(2).Cells(j + 1, 1).Value = Resultat / k
'pour sortie en feuille 1,ligne 7, colonne 10
Cells(j + 7, 10).Value = Resultat / k
j = j + 1
Resultat = 0
k = 0
Loop
End Sub

tu ne peux calculer un écart que sur 2 ou plusieurs nombres : la syntaxe générale de StDev est :
Application.StDev(x, y)

StDev ne peut donc pas s'appliquer à Resultat

A+

---------------
roger

vbaright

bonjour,

en fait au lieu de faire la moyenne, je souhaite faire l'écart des nombres de chaque mois...

merci bien
a+

vbaright

Bonjour,
sur le meme modele, je veux faire l'écart type cette fois ci... comment faire stp?
merci pour ton tps et ton aide
a+

galopin01

bonsoir,

Code :

Sub Test()
Dim i%, j%, k%, Resultat As Single, v
Do Until IsDate(Cells(i + 1, 1).Value)
i = i + 1
Loop
sDep = Cells(i + 1, 2).Address
Do While IsDate(Cells(i + 1, 1).Value)
v = Cells(i + 1, 1).Value
Do While Month(v) = Month(Cells(i + 1, 1).Value)
i = i + 1
Loop
sFin = Cells(i, 2).Address
MsgBox sDep & ":" & sFin
Cells(i, 3).Value = Application.StDev(Range(sDep & ":" & sFin))
j = j + 1
sDep = Cells(i + 1, 2).Address
Loop
End Sub

A+

---------------
roger

Publicité

vbaright

Bonsoir,
Merci bcp galopin01

un autre ptit truc please, en fait sur le meme modele, je souhaite calculer les rentabilités mensuelles... par exemple ici, (B5-B1)/B1, puis (B9-B6)/B6 ... etc...

Merci!!!

ps: depuis quand tu pratiques vb?

vbaright

red faction

Moi je voudrais faire un OS opensource qui ait les mm fonctionnalite que XP
Tu peux m'envoyer le source par MP?

merci galopin01

vbaright

oh! :ouch: galopin01 a disparu?

vbaright

Bonjour à tous,

J'ai besoin d'aide svp

Basé sur les memes données d'en haut, je souhaite calculer à l'aide d'une macro les rentabilités mensuelles.
Soit: (B5-B1)/B1 , puis (B9-B6)/B6 , etc. Le tout à avoir dans la colonne C

La solution manuelle n'est pas possible car c'est trop long, les colonnes sont pleines de données..

Voici les données

Code :

03/03/1997 6
10/03/1997 2
17/03/1997 1
24/03/1997 8
31/03/1997 7
07/04/1997 6
14/04/1997 5
21/04/1997 4
28/04/1997 2
05/05/1997 1
12/05/1997 0
19/05/1997 7
26/05/1997 2
02/06/1997 3
09/06/1997 5
16/06/1997 6
23/06/1997 9
30/06/1997 1
....
....

Merci bcp à tous

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Calcul de somme par plages . . .

Sujets relatifs
[javascript] calcul de la hauteur d'un élément	[java] lire un feuille de calcul excel au format xml ?
Help: Comment faire la somme des Produits en XSLT	[resolu]Ma fonction de calcul des fps est-elle bonne ?
calcul de nombre	[Delphi] VCL de visualisation et calcul scientifique
Problème d'arrondi, somme de pourcentage au dela de 100%	calcul avec requêtes
[VBA-EXCEL{DONE} faire la somme des cellules A1 de toutes les feuilles	Somme d'une colone en ignorant les lettres
Plus de sujets relatifs à : Calcul de somme par plages . . .

Page générée en 0.066 secondes