Incrémentation d'une coordonnée de cellule dans une formule

Bonjour,

Dans le code suivant j'aurai besoin d'incrémenter la coordonnée "x" dans la formule ;ActiveCell.FormulaR1C1 = "=Planning!R[x]C[-3]"

Sub CopieOnglet()
'
' CopieOnglet Macro
' Copie une cellule d'un onglet à l'autre
'

'
Dim S As Integer, x As Integer
x = -1
For S = 1 To 10
Sheets(S +1).Select
Range("E5").Select
ActiveCell.FormulaR1C1 = "=Sheet(1)!R[x]C[-3]"
x = x - 2
Next S
End Sub

Sauf que j'ai un problème soit de syntaxe soit de fonction?

Le but serait de répéter la formule d'une feuille à l'autre en incrémentant la cellule de référence de la feuille(1) soit;

Feuille (2), Cells("E5")=Sheet(1)!R[-1]C[-3]

Feuille (3), Cells("E5")=Sheet(1)!R[-3]C[-3]

Feuille (4), Cells("E5")=Sheet(1)!R[-5]C[-3]

Ainsi de suite

Merci.

Bonjour Illioucha et bienvenu, bonjour le forum,

Peut-être comme ça :

Sub CopieOnglet()
Dim S As Integer, x As Integer
x = -1
For S = 1 To 10
    Sheets(S + 1).Range("E5").FormulaR1C1 = "=Sheet(" & S & ")!R[" & x & "]C[-3]"
    x = x - 2
Next S
End Sub

ou

Sub CopieOnglet()
Dim S As Integer, x As Integer
x = -1
For S = 1 To 10
    Sheets(S + 1).Range("E5").FormulaR1C1 = "=Sheet(1)!R[" & x & "]C[-3]"
    x = x - 2
Next S
End Sub

Génial, un grand merci je bloquais sur ce problème de syntaxe depuis deux jours!