problème d'incrémentation ds macro

G

gbinforme

XLDnaute Impliqué

• 28 Août 2006

• #2

Re : problème d'incrémentation ds macro

Sub TEST1()

Dim I As Long
I = 4 : inutile
For I = 3 To 22


Range("E"&I).FormulaArray = "=STDEV(R[53]C[16+I]:R[314]C[16+I])*SQRT(262)"

Next I

End Sub

 

Vote positif 0 Vote négatif

A

ameus

Guest

• 28 Août 2006

• #3

Re : problème d'incrémentation ds macro

merci de ta reponse,

mais il y a tjrs un pbme ds

.... "=STDEV(R[53]C[16+I]:R[314]C[16+I])*SQRT(262)"



la macro ne comprend pas 16+I


merci de ton aide

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 28 Août 2006

• #4

Re : problème d'incrémentation ds macro

Bonjour Ameus, gbinforme

modifie
"=STDEV(R[53]C[16+I]:R[314]C[16+I])*SQRT(262)"
par
"=STDEV(R[53]C[" & 16+I & "]:R[314]C[" & 16+I & "])*SQRT(262)"

ça devrait le faire

 

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 28 Août 2006

• #5

Re : problème d'incrémentation ds macro

Bonjour Ameus,

Je n'ai corrigé que l'incrémentation de formule.

Tu crées une formule avec ton code, et tu ne peux pas mettre dans cette formule
la valeur de "I" qui une zone de VBA lors de la création de formule.

cela devrait donc donner :
Range("E"&I).FormulaArray = "=STDEV(R[53]C[" & 16+I & "]:R[314]C[" & 16+I & "])*SQRT(262)"

Ainsi tu auras dans ta formule le résultat du calcul.

un poil trop tard...
mais avec le pourquoi de la modif...

 

Vote positif 0 Vote négatif

A

ameus

Guest

• 28 Août 2006

• #6

Re : problème d'incrémentation ds macro

Merci bcp tt le monde


ca marche tres bien

a plus .....

 

Vote positif 0 Vote négatif