Moyenne par partie MAcro VBA pour exel

[invitefcb2dafc]

Bonjour a tous,
Mon problème est le suivant :
Je récupères chaque jours 86400 mesures sur 9 paramètres.
J'aimerai pouvoir réduire ce nombres en réalisant une moyenne de 60 mesures en 60 mesures.
J'ai trouvé dans une discution précédente le code suivant realise par l'utilisateur tilclicc qui semblait resoudre mon problème mais helas lorsque je veux l'activer le mode "debogage" se lance et semble donc m'indiquer une erreur. Avez vous une autre macro ? ou y'a t il une petite chose a corriger
En vous remerciant

Sub Macro1()
  Dim Cellule As String
  Dim Total As Double
  Dim I, J As Integer
  
  
  For J = 0 To 199
    Total = 0
    For I = 1 To 100
      Cellule = "A" & Trim(Str(J * 100 + I))
      Total = Total + ActiveSheet.Range(Cellule).Value
    Next I
    Cellule = "B" & Trim(Str((J + 1) * 100))
    ActiveSheet.Range(Cellule).Value = Total / 100
  Next J
End Sub

-----

Publicité

[invite8f1e9402]

Ici vous avez les moyennes par blocs de 60 lignes comme demandé et non pas par blocs de 100 lignes.

Option Explicit

Sub Macro1()
  Dim total As Double
  Dim i, j As Integer
  
  ' On mets des valeurs aléatoires dans la colonne A pour avoir des données à traiter
  For j = 1 To 60000
    Cells(j, 1) = Int(Rnd() * 10000)
  Next j
  
  ' Ayant Excel 2003, je suis limité à 65536 lignes
  For j = 0 To 99
    total = 0
    For i = 1 To 60
      total = total + Cells(j * 60 + i, 1)
    Next i
    ' On inscrit la moyenne des 60 lignes dans la colonne B
    Cells(j * 60 + i - 1, 2) = total / 60
  Next j
End Sub