problème d'incrémentation ds macro

[ameus]

Bonjour tt le monde,

voici le code d'une macro qui doit à chaque étape changer de colonnes, apparement la formule que j'utilise ne convient pas, vous pouvez m'aidez ?

Sub TEST1()

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


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

Next I

End Sub


merci d'avance

 

[gbinforme]

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

 

[ameus]

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

 

[mutzik]

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

 

[gbinforme]

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...

 

[ameus]

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

Merci bcp tt le monde


ca marche tres bien

a plus .....