1 pièce(s) jointe(s)
Moyenne et tracé de courbe VBA
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.
Pièce jointe 289669
J'ai commencé à écrire un programme et suis persuadé qu'il y a plus simple
Code:
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 ?
