Créer une fonction à partir de cellules d'une autre feuille

[chrisMoParis]

Bonjour

Je dispose de données quotidiennes sur plusieurs années dans une feuille appelée "Journalier"
Je souhaite créer une feuille qui va agréer les données de manière hebdomadaire

J'ai écrit cette macro, qui bugue au niveau de la ligne de commande de la boucle...
Avez vous une piste ?

Remarque : les "i+117" ou "1074+7*i" me permettent d'initialiser sur la bonne cellule et de faire le calcul tous les 7 jours

Code :

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
 
    Dim i As Integer
 
    Application.Workbooks("Stat.xlsx").Worksheets("Hebdo").Activate
    For i = 0 To 200
        Cells(C, (i + 117)).Formula = "SUM(Journalier!Cells(C, (1074 + 7 * i)):Cells(C, (1080 + 7 * i)))"
    Next i
 
End Sub

[bbil]

c'est quoi le but : modifier la formule dans ta feuille Hebdo , pour une formule elle doit commencer par un signe égale "=" .. c'est quoi les deux points ":" au milieu ?
d'où sort le C ?

ligne de commande de la boucle...

c'est quoi cela ? pas de message plus clair ?

[Theze]

Bonsoir,

Il te faut utiliser la référence R1C1. Je n'ai pas contrôlé les formules mais une piste :

Code :

1
2
 
Cells(C, (i + 117)).FormulaR1C1 = "=SUM(Journalier!R" & C & "C" & 1074 + 7 * i & ":R" & C & "C" & 1080 + 7 * i & ")"

Hervé.