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 ?