Tirer une formule sur plusieurs feuilles

Question

Pouvez vous m'aider pour mon problème suivant: Je n'arrive pas à répéter ma formule sur plusieurs feuilles Excel. Je vous donne un exemple simple dans ma feuille 1, A1= 8 Je voudrais que dans ma feuille 2, A1= 'feuille 1'!A1 + 7 Dans ma feuille 3, A1= 'feuille 2'!A1 + 7 Dans ma feuille 4, A1= 'feuille 3'!A1 + 7. et ainsi de suite ... Pouvez vous me donner l'astuce pour que je puisse tirer ma formule sur plusieurs feuilles tout en prenant en compte le résultat de la feuille précédente. En espérant avoir été clair dans mon explication. vous remerciant par avance...

ThauThème · Answer

Bonjour Boutbout et bienvenu, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim I As Byte

For I = 2 To Sheets.Count
    Sheets(I).Range("A1").FormulaR1C1 = "=" & Worksheets(I - 1).Name & "!RC+7"
Next I
End Sub