Discussion :

[paul1004]

Bonjour à tous
Je suis loin d'être un expert en VBa et cherche de l'aide.
Je dispose d'un classeur Excel avec une colonne rempli de valeurs et souhaite automatiser un algorithme de moyenne glissante. Je veux calculer la moyenne de 5 valurs puis de 5 autres puis de 5 autres dans trois différentes sur tout le document (voir image pour mieux comprendre). Et ensuite les tracer.


J'ai commencé à écrire un programme et suis persuadé qu'il y a plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 
Sub moyenne()
Dim moy As Integer
Dim i As Integer
Dim moyt1 As Currency
Dim moyt0 As Currency
Dim moyt2 As Currency
Dim sommet1 As Currency
Dim sommet2 As Currency
Dim sommet0 As Currency
 
 
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Feuille1")
    NoCol = 3 'lecture de la colonne 1
    NoLig = 40
    Dim max As Integer
    max = Split(FL1.UsedRange.Address, "$")(4)
 
    While NoLig < max
        Var = FL1.Cells(NoLig, NoCol)
 
        If i <= 5 Then
            sommet0 = sommet0 + Var
        End If
 
        If i <= 10 And i > 5 Then
            sommet1 = sommet1 + Var
        End If
        If i <= 15 And i > 10 Then
            sommet2 = sommet2 + Var
        End If
 
        i = i + 1
        If i = 15 Then
                i = 0
        End If
 
        NoLig = NoLig + 1
    Wend
 
MsgBox (sommet2)
 
End Sub

Je me déplace dans tous le document et calcule les moyennes comme je le veux mais ensuite je ne sais pas comment les tracer au fur et à mesure qu'elles se calculent.


Pouvez vous m'aider ?

[Jean-Philippe André]

Salut,

effectivement je pense qu'on peut faire plus simple.

Pourquoi ne pas passer par des formules deja ?

Sinon, ta moyenne M-7/M-3 // M-2/M+2 // M+3/M+7 tu veux faire la moyenne des 3 moyennes ? ou les ponderer ?

tu aurais un exemple du resultat souhaite stp ??

[paul1004]

le problèmes st que je ne souhaite pas remplir des colonnes de ma feuille de calcul mais laisser les variables des macros le gérer
Concernant un résultat ce serait un tracé des 3 courbes sur le même graphique pour voir les différences
Et les M-7, M-3,... sont des valeurs de mesures et non des moyennes