Copier cellule de la feuille précèdente

[elDiablo]

Salut à vous tous,

Voilà, je suis en train de faire un petit truc pour le boulot, j'ai créé une macro qui me copie une feuille en 52 nouvelles feuilles, une par semaine.

J'aimerais que chaque semaine me prenne les valeurs de la semaine précédente.

Par exemple,
La cellule B13 de la feuille Semaine 15 doit prendre la valeur de Semaine 14!B14
La cellule B13 de la feuille Semaine 16 doit prendre la valeur de Semaine 15!B14

Et ainsi de suite.

Je suis novice avec les macros et le VB, ce que j'ai fait jusqu'ici, c'est grace à google et à aux articles de ce forum.
Par contre maintenant je bloque depuis quelques heures et après maintes et maintes recherches.

Je vous mets mon fichier base, histoire de vous familiariser avec la chose.

Merci infiniment pour votre aide, vos suggestions.

Charles

 

[vbacrumble]

Re : Copier cellule de la feuille précèdente

Bonsoir

Essaie ce code

Sub Macro1()
Dim i, j
For i = 1 To 52
    Worksheets("Modèle").Copy After:=Sheets(i)
    ActiveSheet.Name = "Semaine " & i
Next i
For j = 2 To 52
Worksheets("Semaine " & j).Range("B13").Formula = "='Semaine " & j - 1 & "'!B13"
Next
End Sub

A+

 

[soenda]

Re : Copier cellule de la feuille précèdente

Bonsoir le fil, eldiablo

Par exemple:

Dim i As Integer
For i = 2 To Sheets.Count - 1
  Sheets("Semaine " & i).[B13] = Sheets("Semaine " & i - 1).[B14]
Next

A plus

Edit: Oups, pas rafraîchis

 

[BOISGONTIER]

Re : Copier cellule de la feuille précèdente

Bonjour,

Les onglets sont copiables:

=INDIRECT("Semaine" &TEXTE(DROITE(CELLULE("nomfichier";A2);2)-1;"00")&"!"&ADRESSE(LIGNE()+1;COLONNE()))

JB
Formation Excel VBA JB

 

[elDiablo]

Re : Copier cellule de la feuille précèdente

Salut à vous tous,

Je tiens à vous remercier pour votre aide précieuse.
C'est vrai que c'est tout bête quand on regarde la chose, mais quand on ne connait rien à VBA...

J'ai utilisé la première solution, de vbacrumble, qui a fonctionné à merveille.
J'ai même fait un petit essai pour que ça me mette les bonnes dates à la bonne semaine, ce qui donne ce-ci:

Worksheets("Semaine " & j).Range("A7").Formula = "='Semaine " & j - 1 & "'!A7+7"

Ce qui me fonctiuonne aussi à merveille, j'ai suivi la logique des autres instructions.

Merci encore à tous pour vos réponses et votre aide précieuse.
Excellent week-end à vous,

elDiablo