Discussion :

[poilou2607]

Bonjour,
Voici quelques lignes d'une macro qui en théorie efface des sélections de cellules réparties périodiquement... Mais vba bloque à la 5ième ligne ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 2 To 12
a = Cells(-34 + 25 * i, 29).Value
Sheets("VPC").Select
Cells(-20 + 25 * i, 32).Select
ActiveCell.FormulaR1C1 = "=(RC[-1]-R[-46+a+25*i]C[-1])/R[-46+a+25*i]C[-1]"
Next

Pouvez vous m'indiquer ce qui ne va pas??

Merci de votre aide

[Duddy]

Bonjour le forum,

A mon avis, mais je n'ai jamais écris comme le code que tu présentes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

R[-46 & (a) &+25*i]C[-1])/R[-46+a+25*i]C[-1]"

If faut que tu donnes le résultat dans la formule, car si je ne me trompe pas tu es en cellule relative.

Essaies de calculer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[-46 & (a) &+25*i]

et de l'insérer ensuite avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 [" & taVar & "]

Sans avoir tester, juste par déduction.

[poilou2607]

Merci de votre réponse... mais je ne comprends pas !! On ne peux pas écrire dans la formule R[f(a)]C[-1] où f est une fonction de a et de i, sachant que ces deux paramètres sont précédemment définis ??

Merci d'avance

[mercatog]

R[f(a)]C[-1]
s'écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range(X).formular1c1="=R[" & f(a) & "]C[-1]"

dans ton cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
For i = 2 To 12
  a = Cells(-34 + 25 * i, 29).Value
  Sheets("VPC").Cells(-20 + 25 * i, 32).FormulaR1C1 = "=(RC[-1]-R[" & -46+a+25*i & "]C[-1])/R[" & -46+a+25*i & "]C[-1]"
next i