Moyenne par partie MAcro VBA pour Excel

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 nombre en réalisant une moyenne de 60 mesures en 60 mesures grace a une macro VBA

J'ai trouvé au fil de mes recherches le code suivant 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).Val ue

Next I

Cellule = "B" & Trim(Str((J + 1) * 100))

ActiveSheet.Range(Cellule).Val ue = Total / 100

Next J

End Sub

Bonjour. Bienvenue sur le Forum

Avec une formule

Cordialement

Bonjour,

Un code pour le principe, à adapter à ta situation.

J'ai considéré 9600 lignes sur 9 colonnes, soit 86400 mesures.

Cdlt

Option Explicit
Public Sub test()
Dim i As Long, lig As Long
Dim rng As Range
Dim j As Byte, col As Byte
    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
    col = 1
    For j = 11 To 19
        lig = 1
        For i = 1 To 9600 Step 60
            Set rng = Range(Cells(i, col), Cells(i + 59, col))
            Cells(lig, j) = WorksheetFunction.Average(rng.Value)
            lig = lig + 1
        Next
        col = col + 1
    Next
    Application.Calculation = xlCalculationAutomatic
End Sub

Merci pour vos réponses, en revanche pour la macro j'ai toujours un soucis d’exécution. Je me suis d'ailleurs mal exprimé dans ma synthèse de depart. En effet les 9 colonnes contiennent chacune plus de 800000 mesures et toutes de paramètres différentes.

Je ne cherches pas forcement une macro qui me ferait la moyennes en meme temps, simplement une macro qui me permettrait en changeant les parametres de les faire une par une. Pour eviter toutes nouvelles erreurs dans mon explication je me permet de mettre en pièce jointe un morceau de ces données d'acquisition. ( les colonnes I J K L ne sont reliées a aucun détecteur et sont donc inutiles)

J'ai réduit a 4000 le nombres de lignes pour ne pas depasser la taille limite

Cordialement

Bonjour,

Avant tout, tu as un souci avec tes séries de nombres qui sont en fait des chaînes de caractères du texte).

Ensuite, de quels paramètres à changer parles-tu? Tu dois être plus précis dans ta demande.

A te relire.