Imprimer x pages en changeant une valeur

Bonjour chers lecteurs,

Je suis très embêté, en effet, je suis en train de créer des tableaux hebdomadaires et pour en faire un "cahier annuel" je dois imprimer les pages avec au dessus de chaque page "semaine du 08/01 au 14/01" ; puis "semaine du 15/01 au 21/01".

J'ai bien tenté de dupliquer le tableau 52 fois et insérer une formule :

="cellule"+1

mais lorsque j'ai besoin de changer une ligne du tableau, je dois TOUUUUT reprendre... (voir exemple joint)

(J'ai plusieurs cahiers à faire, et chaque page est identique du début à la fin, hormis cette date à changer...)

Merci beaucoup !

bonjour Matthieu04584,

avec le bouton "imprimer" vous lancez une macro qui modifie chaque fois C4 et imprime la page 1, cela jusqu'au 31/12/2024

C'est génial ! Comment avez-vous fait ?

Merci beaucoup !

Est-ce que j'abuse si je vous demande ce que chaque ligne signifie ?

Sub Imprimer()
     For i = DateSerial(2024, 1, 8) To DateSerial(2024, 12, 31) Step 7
          Range("C4").Value = i
          'Range("A1:G42").PrintPreview
          Range("A1:G42").PrintOut
     Next
End Sub

Merci encore !

re,

vous l'avez trouvé !

Sub Imprimer()
     For i = DateSerial(2024, 1, 8) To DateSerial(2024, 12, 31) Step 7     'chaque date entre 8/1/2024 et 31/12/2024 avec 7 jours d'intervalle (=les lundis)
          Range("C4").Value = i              'écrire ce jour dans cette cellule
          'Range("A1:G42").PrintPreview 'si vous vouliez, vous pouvez voir un capture de l'écran
          Range("A1:G42").PrintOut           'directement envoyer a l'imprimante
     Next
End Sub

Merci infiniment !!