Discussion :

[ccm456]

Bonjour,

Désolé je suis débutant,voila mon problème : j'ai plusieurs colonnes (de 60 000 lignes) dont je doit faire la moyenne toute les 10 lignes donc de 0 a 10 de 10 a 20... etc et de placer ces résultats moyennés dans une nouvelle colonne (donc de 6000 lignes )

Je pense que le plus facile serai de faire une boucle "for" qui fait la moyenne pondéré toute les 10 valeurs ?

ex : moyenne de A1 jusqu’à A10 ensuite de A10 a A20 .... de A59990 à A60000

merci beaucoup pour votre aide et j'espère avoir été clair

[SfJ5Rpw8]

bonjour,

pourquoi du VBA , une simple formule =Moyenne(.. ne suffit pas ?

[ccm456]

bonjour
une simple formule =Moyenne(.. ne suffit pas car je ne doit pas faire la moyenne juste sur une colonne mais je dois moyenner toutes les 10 valeurs d'une colonne sur 60 000 lignes donc il faut que j'automatise car je ne peux pas faire à la main

ex : moyenne de A1 jusqu'a A10 de A10 a A20 .... de A59990 à A60000

[SfJ5Rpw8]

et tu ne fais pas la moyenne de A2 jusqu'as A11 ?

[ccm456]

nan nan juste de 0 a 10 de 10 a 20 de 20 a 30 ....

( ce sont des mesures et la machine m' a sorti 10 valeurs par seconde aulieu de 1 donc je dois les moyenner )

[j0joo]

Bonjour,

Voici un code qui calculera la moyenne toutes les 10 valeurs et l'afficher en colonne B

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim somme As Integer
Dim moyenne As Integer
 
 
For i = 10 To 60000 Step 10
    somme = Range("A" & i - 9) + Range("A" & i - 8) + Range("A" & i - 7) + Range("A" & i - 6) + Range("A" & i - 5) + Range("A" & i - 4) + Range("A" & i - 3) + Range("A" & i - 2) + Range("A" & i - 1) + Range("A" & i)
    Range("B" & i) = somme / 10
Next i
 
End Sub

A adapter