Moyenne par partie MAcro VBA pour exel

[reve20]

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 résoudre 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

 

[homepyrof53]

Re : Moyenne par partie MAcro VBA pour exel

Bonjour,

Problème de saisie de "value" et non "val ue"

cordialement

 

[reve20]

Re : Moyenne par partie MAcro VBA pour exel

Bonsoir,
Ce decalage s'est fait quand j'ai passe en citation je ne sais pas pourquoi, l'espace n'existe pas dans mes lignes.
Merci quand meme 🙂

 

[JNP]

Re : Moyenne par partie MAcro VBA pour exel

Bonjour 🙂
Sous réserve que tes données soient en colonnes A à I, résultat en J à R, et que tes colonnes soient de la même hauteur :

Sub Moyenne60()
Dim DerLigne As Long, I As Integer, J As Long
DerLigne = Range("A" & Cells.Rows.Count).End(xlUp).Row
For I = 1 To 9
    For J = 0 To Int(DerLigne / 60)
        Cells(J + 1, I + 9) = Application.WorksheetFunction.Average( _
            Application.WorksheetFunction.Average( _
            Range(Cells(J * 30 + 1, I), Cells((J + 1) * 30, I))), _
            Application.WorksheetFunction.Average(Range(Cells(J * 30 _
            + 31, I), Cells((J + 1) * 30 + 30, I))))
    Next J
Next I
End Sub

Bonne suite 🙂

 

[reve20]

Re : Moyenne par partie MAcro VBA pour exel [résolu]

Bonjour et merci beaucoup problème résolue

 

[JNP]

Re : Moyenne par partie MAcro VBA pour exel

Re 🙂
Le problème est simple, tes données sont du texte et pas des chiffres... Sélectionne toute tes données, Ctrl + H, demande à remplacer les "." par des "," et ça va beaucoup mieux marcher... 😛
N'oublie pas d'enregistrer en "XLSM", sinon, ça ne gardera pas les macros... 🙄
Bonne suite 🙂

 

[reve20]

Re : Moyenne par partie MAcro VBA pour exel

Ha oui en effet je m'en suis justement aperçu ! Merci beaucoup voila un temps précieux economisé grace a cette macro