Probleme d'application moyenne mobile

Fermé
stef696 - 19 févr. 2009 à 13:02
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 20 févr. 2009 à 15:45
Bonjour et merci pour votre temps. Mon problème est le suivant.

Dans une feuille excel je veux laisser a un utilisateur la possibilite de choisir son lissage de courbe. Dans ma feuille de base je fais ce lissage en appliquant une moyenne mobile sur mes données sur un intervalle donne.
La je donne le choix de la taille de l'intervalle dans la cellulle (12, 12), et je veux mettre les resultats des moyennes mobiles dans la colonne 29 (moyennes mobiles des valeurs de la colonne 28).

Cependant cette macro ne fonctionne pas, je dois avoir un problème de syntaxe. Pouvez-vous m'aider ?


<<
Dim A As Integer, j As Integer, k As Integer

Sheets("Interface").Select

A = Cells(12, 12).Value

Sheets("Calculs").Select

For i = 18 To 1100 Step 1

j = i - A
k = i + A - 1
Cells(i, 29).Value = "=AVERAGE(R[f]C[-1]:R[d]C[-1])"

Next
>>

5 réponses

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 277
20 févr. 2009 à 15:45
N'hésite pas à demander.
explique ce que tu veux et il te sera répondu clairement.
bonne journée
R
1
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 277
19 févr. 2009 à 15:11
bonjour,

Qu'est-ce qu'il y a dans f et dans d?

Cells(i, 29).Value = "=AVERAGE(R[ f ]C[-1]:R[ d ]C[-1])"
0
Pardon j'ai copie colle un de mes tests, le code juste est :
<<
For i = 18 To 1100 Step 1

j = i - A
k = i + A - 1
Cells(i, 29).Value = "=AVERAGE(R[j]C[-1]:R[k]C[-1])"

Next
>>
il n'y a pas de 'f' et de 'd'

Quand je lance la macro et que je vais dans 'debug' la ligne ou le probleme est indique est celle que j'ai corrige dans ce message avec 'average'. J'imagine qu'il y a un probleme de syntaxe que je ne vois pas.

En vous remerciant de votre aide,
0
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 277
19 févr. 2009 à 16:10
essaye ça !

Cells(i, 29).Value = "=AVERAGE(R[" & j & "]C[-1]:R[" & k & "]C[-1])"
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Merci ! La macro fonctionne donc c'etait bien moi qui ne connaissait pas la bonne syntaxe.

Ca fait pas encore ce que je veux mais la je devrai pouvoir me debrouiller.

Merci !
0