Fonction( moyenne) avec excel

Salut,

Une petite macro semble l'idéal..

Je vois quelque chose du genre ...

Sub Macro3()
'
' Macro3 Macro
'

Sheets("Feuil1").Select

Dim somme As Variant
Dim k As Integer
k = 1

For i = 1 To 54000 Step 20

somme = 0

 For j = 0 To 19 Step 1
 If (Cells(i + j, 1).Value = "") Then Exit For
 somme = somme + Cells(i + j, 1).Value
 Next j

If somme <> 0 Then

Sheets("Feuil2").Select

Cells(k, 1).Value = somme / j
k = k + 1

Sheets("Feuil1").Select
End If

Next i

'
End Sub

Si besoin d'éclaircissement, demandez !

Bonne chance

Bonjour
sans macro et rien que pour le fun:
pour faire une moyenne toutes les 20 lignes d'un tableau de 54000 lignes qui démarre, pour l'exemple en A1:
en B1:1
en B2:B1+20
en C1:=MOYENNE(INDIRECT("A"&B1):INDIRECT("A"&B1+19))
en C2:=MOYENNE(INDIRECT("A"&B2):INDIRECT("A"&B2+19))
Reste plus qu'à sélectionner ensemble B2 et C2 et à tirer sur les 2699 lignes à remplir
ça va assez vite.

Crdlmnt

http://www.ybet.be/formation_excell/12-sous-totaux.php

merci bouket , mais votre solution est plus expirimeté , c'est vous le permiter je vois que ca serait mieux de regarder la solution sur le lien . ton avis ?

oui effectivement, mais le lien donné, fait une somme ou moyenne sur des choses semblables...

Je ne crois pas qu'il puisse le faire tous les 20 lignes, comme demandé...

Tout dépend de ce que vous voulez finalement ... mais ma solution n'est pas si compliquée à utiliser (si correct, mais après test, elle me le semble bien !)

bonne continuation

bonjour
merci bouket, et merci vaucluse votre proposition marche trés bien.
merci infiniment