formule somme et variable

[menxy]

Bonjour à tous,

Je cherche à incrémenter une variable dans une formule de somme via vba.
Par exemple :
lorsque je suis sur la cellule I930, je cherche à faire la somme de la cellule I1 à I929 via une formule somme vba.
le soucis c'est que ma cellule I930 peut bouger et devenir I800.
Comment incrémenter une variable dans la formule afin que le I929 devienne I799 dans le deuxième cas ?

range("i930").select
ActiveCell.FormulaR1C1 = "=SUM(R[-929]C:R[-1]C)/3"


range("i800").select
ActiveCell.FormulaR1C1 = "=SUM(R[-929]C:R[-1]C)/3"

Merci de votre aide

Menxy

 

[Raja]

Re : formule somme et variable

Bonjour,

Peut être comme ça :

Range("I930").Select
ActiveCell.FormulaR1C1 = "=SUM(R[" & -(ActiveCell.Row - 1) & "]C:R[-1]C)"
Range("I800").Select
ActiveCell.FormulaR1C1 = "=SUM(R[" & -(ActiveCell.Row - 1) & "]C:R[-1]C)"

 

[menxy]

Re : formule somme et variable

Merci mille fois !
c'est exactement ce que je recherchais !

Menxy