demande methode

[khabs]

Bonjour Forum

j'ai des valeurs(6000) qui sont sur la colonne B.
je veut faire la moyenne par 60 valeurs.
une methode efficace en excel ou en macro serait la bienvenue
merci d'avance

 

[Hervé]

Bonjour

Ta demande manque d'explication:

60 valeurs à la suite ?

Je suis parti sur cette hypothèse à travers la macro suivante :

Public Sub moyenne()
Dim ligneB As Integer
Dim ligneC As Byte
Dim moyenne As Double

'initialisation de la la variable ligne
ligneC = 1
'pour ligneB=1 jusqu'à 6000 en passant de 60 lignes en 60 lignes
For ligneB = 1 To 6000 Step 60
'la moyenne est calculé entre les 2 limites ligneB et ligneB+60
moyenne = Application.WorksheetFunction.Average(Range(Cells(ligneB, 2), Cells(ligneB + 59, 2)))
'on inscrit colonne C au numéro de ligneC
Range('c' & ligneC) = moyenne
'on incrémente ligneC pour éviter d'écraser les données
ligneC = ligneC + 1
'ligneB suivant
Next ligneB
End Sub

Ce code calcule la moyenne de la colonne B par paquet de 60 valeurs, soit de 1 à 60 puis 61 à 120, 121 à 180... jusqu'à 6000,

et inscrit ces moyenne en colonne C.

Espérant t'avoir rendu service.

Salut

 

[khabs]

Merci Hervé je vais tester çà
ok A+

 

[khabs]

Merci Hervé je vais tester çà
ok A+

 

[Philippe]

Bonjour,

J'arrive après Hervé mais j'ai écrit du code alors je te l'envoie:

Sub moye()
For Group = 0 To 10
tot = 0
For sougroup = 1 To 60
lign = (60 * Group) + sougroup
tot = tot + (Range('B' & lign).Value)
Next sougroup
moy = tot / 60
Range('E' & (Group + 1)).Value = moy
Next Group
End Sub


Calacul par bloc de 60, résultats en 'E'

 

[khabs]

Merci philip

mais pourquoi For group=0 To 10?
tot ça signifie quoi?

 

[khabs]

j'ai tester le code hervé mais il fait la calcul jusqu'a la ligne 81 et en plus il écrit erreur d'execution: Impossible de la lire la propriete AVERAGE de la classe whorksheet fonction

 

[Hervé]

Bonjour

Quelle données se trouve en ligne 81 ?

Je n'arrive pas à reproduire cette erreur.

Ceci doit venir de la structure de ta feuille, pourrais tu mettre en pièce jointe un exemple de ton classeur.

A plus

Hervé

 

[Monique]

Bonjour,

Par formules.
Tes valeurs de A1 à A6000

Si tu démarres tes moyennes en ligne 1 :
=MOYENNE(DECALER($A$1;60*(LIGNE()-1);;60)

Si tu démarres en ligne 2 :
=MOYENNE(DECALER($A$1;60*(LIGNE()-2);;60)
puis tu fais un copié-collé

Decaler( nb de lignes; 0 colonne donc omis; hauteur; largeur = 1 donc omis)

 

[khabs]

excuse moi j'ai du faire une erreur. aulieu de 6000 c'est 5209 valeurs.
le programme ça marche.
merci beaucoup hervé

 

[khabs]

Merci monique
A+

 

[Hervé]

re
salut monique, superbe formule comme d'hab

Content que ca fonctionne, par contre le fait qu'il n'y ait que 5209 valeurs ne solutionne pas le problème de la ligne 81 ????

A plus

Salut

 

[khabs]

Non ya plus de probleme de ligne encore une fois j'avais mal interpreter.5209/60= 87 donc les 87 lignes sont les resultats des moyennes.c'est comme ça le programme il marche
ok thanks