Probleme d'application moyenne mobile

stef696 -  
Bidouilleu_R Messages postés 1209 Statut Membre -
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 1209 Statut Membre 295
 
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 1209 Statut Membre 295
 
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
stef696
 
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 1209 Statut Membre 295
 
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
stef696
 
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