Pb Macro pour ajouter une feuille en +

[Asus13x11]

Bonsoir

Voilà ma macro marche bien mais je voudrais bien y integre à la repetition la feuille "Masque"

Pour obtenir 52 Onglets (correspondant aux semaines)
avec la feuille "Masque" integré dans chaque onglet.

*******************************

Sub Macro1()
Dim premierLundi, i As Integer, y As Integer, z As Integer
premierLundi = DateSerial(2009, 1, 5) - Weekday(DateSerial(2009, 1, 3))
For i = 1 To 3

Sheets.Add After:=Worksheets(Sheets.Count)
ActiveSheet.Name = "Sem" & i
For y = 1 To 6
Range("A1").Cells(134, y) = CDate(premierLundi) + z
z = z + 1
Next y
Range("A1").NumberFormat = "dddd d mmmm"
z = z + 2
Range("G1").Value = "Sem" & i
Next i
End Sub

*************************************

 

[Paritec]

Re : Pb Macro pour ajouter une feuille en +

Bonsoir asus,
"""mais je voudrais bien y integre à la repetition la feuille "Masque""""""""
ça veut dire quoi en gros ou en détail plus exactement?
a te lire
Papou

 

[Paritec]

Re : Pb Macro pour ajouter une feuille en +

Re Asus le forum,
oui pour moi actuellement tes onglets on le nom "Sem 1" "Sem2" etc...
c'est donc quoi le "Masque" dans l'onglet?
a+
papou

 

[Asus13x11]

Re : Pb Macro pour ajouter une feuille en +

Bonsoir

Ma "feuille 1" se nomme "Masque" tous simplement

et je voudrais la reprendre dans chaque onglet qui s'apperont "Sem1 Sem2 etc..."

en gardant le calcule de semaine de ma macro.

 

[ROGER2327]

Re : Pb Macro pour ajouter une feuille en +

Bonsoir à tous.

S'il s'agit de reproduire la feuille nommée "Masque" en y intégrant les données relatives à chaque semaine, je propose les modifications en rouge :

Sub Macro1()
Dim premierLundi, i As Integer, y As Integer, z As Integer
    premierLundi = DateSerial(2009, 1, 5) - Weekday(DateSerial(2009, 1, 3))
    For i = 1 To 3
        [COLOR="Red"][B]Sheets("Masque").Copy[/B][/COLOR] After:=Worksheets(Sheets.Count)
        ActiveSheet.Name = "Sem" & i
        For y = 1 To 6
            Range("A1").Cells(134, y) = CDate(premierLundi) + z
            z = z + 1
        Next y
        Range("A1").NumberFormat = "dddd d mmmm"
        z = z + [COLOR="Red"][B]1[/B][/COLOR]
        Range("G1").Value = "Sem" & i
    Next i
End Sub

Bonne nuit !
ROGER2327

 

[Asus13x11]

Re : Pb Macro pour ajouter une feuille en +

Bonjour

Merci beaucoup "Roger2327", cela correspond à ce que je voulais.

Probleme résolu.

Bonne journée

A Bientôt