demande methode

Hervé

XLDnaute Barbatruc

• 7 Avril 2005

• #2

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

K

khabs

Guest

• 7 Avril 2005

• #3

Merci Hervé je vais tester çà
ok A+

 

Vote positif 0 Vote négatif

K

khabs

Guest

• 7 Avril 2005

• #4

Merci Hervé je vais tester çà
ok A+

 

Vote positif 0 Vote négatif

P

Philippe

XLDnaute Occasionnel

• 7 Avril 2005

• #5

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'

 

Vote positif 0 Vote négatif

K

khabs

Guest

• 7 Avril 2005

• #6

Merci philip

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

 

Vote positif 0 Vote négatif

K

khabs

Guest

• 7 Avril 2005

• #7

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 7 Avril 2005

• #8

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é

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 7 Avril 2005

• #9

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)

 

Vote positif 0 Vote négatif

K

khabs

Guest

• 7 Avril 2005

• #10

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

 

Vote positif 0 Vote négatif

K

khabs

Guest

• 7 Avril 2005

• #11

Merci monique
A+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 7 Avril 2005

• #12

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

 

Vote positif 0 Vote négatif

K

khabs

Guest

• 7 Avril 2005

• #13

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

 

Vote positif 0 Vote négatif