calcul de moyenne par colonne

[albert]

bonjour à tous, bonjour forum,
j'ai mis un compteur de colonnes en A26
il y a 6 colonnes lines 2 à 24...
comment faire pour que le résultat de chaque colonne s'affice en ligne 25???

je ne dois pas très en forme, la moyenne se calcule jusque 65536...

j'ai essayé plusieurs solutions... elles ont toutes échouées

merci d'avance pour votre aide

fichier joint MOYENNE.zip

mon code (je cherche au plus simple)

Sub Mov()

For j = 1 To Cells(26, 1)
Worksheets("Feuil1").Columns(j).FormulaR1C1 = "=AVERAGE(R[-22]C:R[-1]C25)"
Next j

End Sub

albert

 

[michel]

Bonsoir Albert

je ne suis pas sur d'avoir bien compris ta demande , mais tu peux tester la macro ci dessous
pour chaque colonne cible , la formule "Moyenne" des lignes 2 à 24 , est insérée dans la ligne 25


Sub Mov()
Dim J As Byte

For J = 1 To Cells(26, 1)
Worksheets("Feuil1").Cells(25, J).FormulaR1C1 = "=AVERAGE(R[-23]C:R[-1]C)"
Next J

End Sub


bonne soirée
michel

 

[albert]

merci michel, c'est exactement ce que je cherche
j'avais fait une tentative avec

Worksheets("Feuil1").Columns(J).End(xlDown).FormulaR1C1 = "=AVERAGE(R[-23]C:R[-3]C25)"

j'avais aussi imaginé utiliser Cells ou Range... mais j'ai dû mettre les pieds dans l'tapis

j'en profite pour indiquer une adresse qui me plaît bien... c'est du excel, pas du vba mais c'est tout de même bigrement captivant

http://home.uchicago.edu/~rmyerson/econ205.htm

bonne soirée