copie d'une date avec +7 jours sur chaque feuille

[creina]

Bonjour,

Un petit pb

j'ai x feuilles dans mon classeur

en a1 dan la feuille 1, j'ai la date du jour soit le 15/09/2009. Je cherche une macro me permettant de récuperer sur cahcune de mes feuilles cette date +7 jours soit:

feuille 1: 15/09/2009
feuille 2: 22/09/2009
feuille 3: 29/09/2009

etc..

je n'y arrive pas merci de votre aide

cordialement,

 

[JHA]

Re : copie d'une date avec +7 jours sur chaque feuille

Bonjour Creina, le forum,

peu être sans macro, en Feuille 2 A1:

=Feuil1!A1+7

JHA

 

[JNP]

Re : copie d'une date avec +7 jours sur chaque feuille

Bonjour Creina et bienvenue, JHA ,
Si j'ai bien compris

Sub Test()
Dim I As Integer
For I = 2 To Sheets.Count
Sheets(I).Cells(1, 1) = Sheets(I - 1).Cells(1, 1) + 7
Next I
End Sub

Bonne soirée