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!

bonjour,
Le code suivant devrait faire l'affaire :

A+

Merci galopin01, ça marche...

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

bonsoir,

A+
 

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+

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+

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

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+

bonsoir,

A+

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?

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?

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

oh!   galopin01 a disparu?

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

Merci bcp à tous