Dupliquer une feuille et insérer une formule dans cahque feuille créée

[degap05]

Bonjour le forum,

Dans le classeur joint, une macro de Spitnolan08, permet de dupliquer une feuille modèle.
Cette feuille modèle se nomme "Semaine". Les feuilles créées prennent le numéro de la semaine.
Des données sont ensuite saisies en colonne "AK" de la cellule 4 à 64, de la feuille "Semaine1".
Le but de ma demande est que en feuille "Semaine2" en colonne "C" de la cellule 4 à 64 on trouve la formule : =Semaine1!AK4 en cellule C4 jusqu'à C64.
Et ainsi de suite pour toutes les feuilles créées.

Pensez-vous que cela soit possible ?

 

[kjin]

Re : Dupliquer une feuille et insérer une formule dans cahque feuille créée

Bonjour,
Pourquoi C4=Semaine1!AK4 ?
Cela veut-il dire que toutes les feuilles doivent se référer à semaine1 ?

Sub duplic()
Dim i As Byte
For i = 1 To 52
     Sheets("Semaine").Copy After:=Sheets(Sheets.Count)
     With ActiveSheet
        .Name = "Semaine" & i
        .Range("C4:C64").Formula = "=Semaine1!AK4"
     End With
Next
End Sub

Ou qu'elles doivent se référer à la semaine précédente ? (sauf en semaine1 je suppose)

Sub duplic()
Dim i As Byte
For i = 1 To 52
     Sheets("Semaine").Copy After:=Sheets(Sheets.Count)
     With ActiveSheet
        .Name = "Semaine" & i
        If .Name <> "Semaine1" Then
        .Range("C4:C64").Formula = "=Semaine" & i - 1 & "!AK4"
        End If
     End With
Next
End Sub

Sinon

Sub duplic()
Dim i As Byte
For i = 1 To 52
     Sheets("Semaine").Copy After:=Sheets(Sheets.Count)
     With ActiveSheet
        .Name = "Semaine" & i
        .Range("C4:C64").Formula = "=AK4"
     End With
Next
End Sub

A+
kjin

 

[degap05]

Re : Dupliquer une feuille et insérer une formule dans cahque feuille créée

Bonjour kjin,

Pourquoi C4=Semaine1!AK4 ? Il s'agit d'un classeur de balance de stock hebdomadaire. On reprend donc le stock réel de la semaine précédente pour mise à jour de la semaine en cours.

Tu as tout compris.
J'ai testé ta première proposition et c'est parfait !!!

Merci beaucoup.

A+