Créer une formule en référence à la feuille précédente VBA

Bonjour,

Après avoir (presque) tout essayé, je ne parviens pas à mon but.

Je souhaite écrire en VBA une macro qui additionne automatiquement les cellules de la feuille précédente.

Par exemple sur la feuille W25 en E3 je dois recopier la formule ='W24'!F3+'W24'!F46 et pour la W26 je dois changer dans la formule le W24 en W25 etc, je dois chaque semaine écrire cette formule et je souhaite créer une macro qui insère la formule automatiquement chaque semaine en fonction de la semaine précédente.

Mon code (Macro 1) :

Sub Macro1()

Dim cell As Integer

cell = Worksheets(ActiveSheet.Index - 1).Activate

ActiveSheet.Select

Range("E3").Select

ActiveCell.FormulaR1C1 = "= cell & (RC[1])+ cell & (R[43]C[1])"

Range("E3").Select

Selection.Copy

Range("E3:P31").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

End Sub

Voilà ceci est un appel à l'aide svp !

Bonjour consonnes, bonjour le forum,

Essaie comme ça :

Dim OA As Worksheet 'déclare la variable OA (Onglet Actif)
Dim OP As Worksheet 'déclare la variable OP (Onglet Précédent)

Set OA = ActiveSheet 'définit l'onglet OA
Set OP = ActiveSheet.Previous 'définit l'onglet Précédent
'renvoie la formule dans E3 de l'onglet actif
OA.Range("E3").Formula = "=" & OP.Name & "!F3+" & OP.Name & "!F46" & ""

Oui ça marche parfaitement merci énormément !!!