Fonction( moyenne) avec excel

Résolu
Bonjour,
j'ai une plage de données qui fait 54000 lignes, je veux réduire ces données en faisant la moyenne de chaque 20 lignes, comment puis je proceder rapidement svp
Configuration: Windows XP Internet Explorer 7.0

6 réponses

  1. bonjour
    merci bouket, et merci vaucluse votre proposition marche trés bien.
    merci infiniment
    0
    1. Contributeur
      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

      1
      1. 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
        0
        1. 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 ?
          0
          1. 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
            1