fonction ayant pour argument une cellule (et pouvoir recuperer sa ligne)

Question

bonjour,

j'ai créé ma petite fonction qui calcule la moyenne mobile sur 50données.

la fonction est ainsi:


Function moyennemobile50(y As Integer)

Dim g As Integer
Dim gugu As Single


g = y - 49
gugu = 0
For g = y - 49 To y
gugu = gugu + Cells(g, 1).Value
Next g

moyennemobile50 = gugu / 50

End Function


elle prend donc le 50° chiffre de la colonne A et fait la moyenne de ce chiffre et des 49 précédents.

or, si je fais glisser ma cellule, elle ne va pas de la 2° a la 51° valeur, puis de la 3° a la 52° valeur, etc. bref : elle calcule toujours la mm50 a partir du même argument : 50, qui ne "glisse" pas.

je sollicite donc votre aide, pour avoir en argument "A50", et qu'ainsi, je puisse faire glisser ma fonction....

merci,

lily

foliv57 · Answer

Bonjour,

Pour passer une cellule en paramètre il faut faire :
Function moyennemobile50(Cellule As Range) 

  Dim y As Integer
  Dim g As Integer 
  Dim gugu As Single 

  y = Cellule.Row
  g = y - 49 
  gugu = 0 
  For g = y - 49 To y 
    gugu = gugu + Cells(g, 1).Value 
  Next g 

  moyennemobile50 = gugu / 50 

End Function

foliv57 · Answer

Et pour l'utiliser, il faudra mettre comme formule

=moyennemobile50(A50)

De la même manière que les autres formules Excel

lbclbc · Answer

merci d'avoir pris le temps de me repondre

Fonction ayant pour argument une cellule (et pouvoir recuperer sa ligne)

3 réponses

Votre réponse

Discussions similaires