VBA/Excel : moyenne mobileRésolu

Question

Bonjour &#224; tous,

j'ai une s&#233;rie de donn&#233;es (1 colonne) aux valeurs assez chaotiques &#224; analyser et je voudrais en conna&#238;tre les tendances. Je sais qu'Excel peut afficher des courbes de tendances sur des graphiques, et notamment une "moyenne mobile". Je voudrais alors savoir s'il est possible d'appliquer cette moyenne mobile sur ma s&#233;rie de donn&#233;es, mais en r&#233;cup&#233;rant les valeurs calcul&#233;es par Excel..

A d&#233;faut, serait-il possible de programmer une macro " moyenne mobile" sur une s&#233;rie de donn&#233;es sans utiliser un graphique?

J'esp&#232;re que mes explications sont assez claires.
Je vous remercie d'avance pour toute l'aide que vous pourrez m'apporter.


Amateurement v&#244;tre...

cqui789 · Accepted Answer

desole, je ne connait pas VBA, juste Excel et VB (un comble, non?)



as-tu cherche avec l'option recherche du site?



si rien ne vient, pose une nouvelle question sur le forum.

cqui789 · Answer

Quelle sont les equations mathematiques necessaires pour faire ce que tu veux?

cs_nico39 · Answer

Salut cqui789,

Merci de ta r&#233;ponse.
La formule &#224; appliquer est assez simple: il suffit de faire une moyenne toute b&#234;te sur une nombre d&#233;termin&#233; de cellules, et ce, en se d&#233;calant d'une cellule apr&#232;s l'autre.
Je m'explique:
soit une s&#233;rie de donn&#233;es  A1:A40
Dans la colonne B, je vais en faire une moyenne mobile toutes les 10 valeurs.
Ainsi en B9 ira la moyenne de A1:A9 (c&#224;d les 10 1&#232;res valeurs), en B10 ira celle de A2:A10, et ainsi de suite.
J'esp&#232;re que cela est plus clair.

Je viens en fait de parvenir &#224; un code qui marche plut&#244;t bien. 
Dans le cas que je te'ai pr&#233;sent&#233; plus haut, cela donne:

sub moy_mobil()
 
periode=10  'nombre de valeurs dont on fait la moyenne
Set Cellule = Cells(periode - 1 , 2)
Do Until IsEmpty(Cellule.Offset(1 - periode, -1)) = True
      'D&#233;finition de la plage de valeurs &#233;tudi&#233;e &#224; chaque fois
  Set debut_Periode = Cellule.Offset(1 - periode, -1)
  Set fin_Periode = Cellule.Offset(0, -1)
  Set Plage = Range(debut_Periode, fin_Periode)
      'Calcul de la valeur de la moyenne
  moy = WorksheetFunction.Average(Plage)
  Cellule.Value = moy
      'Mouvement de la cellule cible de la moyenne
  Set Cellule = Cellule.Offset(1)
Loop
End Sub

Voil&#224;, j'esp&#232;re que ce code tient la route et qu'il pourra profiter &#224; d'autres. Bien s&#251;r, les param&#232;tres tels que "periode" et "Cellule" varieront selon la configuration rencontr&#233;e ou souhait&#233;e.

Merci encore pour ton int&#233;r&#234;t.


Amateurement v&#244;tre...

cqui789 · Answer

Et si tu remplacait:


  Set debut_Periode = Cellule.Offset(1 - periode, -1)
  Set fin_Periode = Cellule.Offset(0, -1)
  Set Plage = Range(debut_Periode, fin_Periode)
      'Calcul de la valeur de la moyenne
  moy = WorksheetFunction.Average(Plage)
  Cellule.Value = moy
      'Mouvement de la cellule cible de la moyenne
  Set Cellule = Cellule.Offset(1)

 par:


cellule.FormulaR1C1 = "=AVERAGE(R[" & 1 - periode & "]C[-1]:RC[-1])"



si tu modifie les valeurs les moyennes se mettent a jour

cs_nico39 · Answer

Salut cqui789,
Merci pour cette astuce. Mon code est un peu plus l&#233;ger.

Je voulais savoir si toi ou des gens du forum connaissiez bien tout ce qui est formulaire. En effet je voudrais bien faire appara&#238;tre un formulaire durant l'ex&#233;cution de ma pr&#233;c&#233;dente macro pour demander &#224; l'utilisateur une valeur pour la p&#233;riode (cf plus haut).
Seulement, je ne sais pas comment r&#233;cup&#233;rer les valeurs recueillies dans un tel formulaire (dans une Textbox p.e.).

Merci d'avance pour toute votre aide.


Amateurement v&#244;tre...

VBA/Excel : moyenne mobile

5 réponses

Discussions similaires