Copier une feuille 52 fois

[BOBO]

Bonjour et meilleurs voeux au forum

J'ai fais une feuille type 'semaine 01' et j'aimerais la copier 52 fois pour toutes les semaines de l'année. Je n'ai réussi qu'a la copier 5 fois et après ca me bloc !!
Pourriez vous me dire comment faire

Merci bien

 

[porcinet82]

Salut Bobo,

Voici une petite macro qui réalise ce que tu souhaites.

Sub semaine()
Dim i As Byte

For i = 1 To 51
    Sheets(1).Select
    Sheets('Semaine 1').Copy After:=Sheets(i)
    ActiveSheet.Name = 'Semaine ' & i + 1
Next i
End Sub

@+

 

[coco_lapin]

Bonjour BOBO et le forum.

Pourrais-tu être plus préci:

Veux-tu le réaliser avec une macro, quel nom veux-tu donner aux autres feuilles?

Manuellement qu'est-ce qui te bloque?

 

[Creepy]

Bonjour le Forum, Bobo,

Voici un petit code VBA qui fera ca tres bien :

Sub Semaine()

Dim Boucle As Integer

For Boucle = 2 To 52
    Sheets(1).Select
    If Boucle = 2 Then
      Sheets(1).Copy After:=Sheets(1)
    Else
       Sheets(1).Copy After:=Sheets(Sheets.Count)
   End If
      ActiveSheet.Name = 'Semaine' & Boucle
Next Boucle
End Sub

En admettant que ta feuille de base est bien la 1.

@+

Creepy

 

[coco_lapin]

coco_lapin écrit:

Bonjour BOBO et le forum.

Pourrais-tu être plus préci:

Veux-tu le réaliser avec une macro, quel nom veux-tu donner aux autres feuilles?

Manuellement qu'est-ce qui te bloque?

porcinet82, nous nous sommes croisés. Pour le code tu as donc répondu.

 

[PascalXLD]

Bonjour

Attention si ta feuille modèle est très chargée en mise en forme il arrive que les macros buggent après quelques copies.

 

[BOBO]

Merci de vos réponse et desolé pour mon retard

En faite je voudrais pouvoir le faire manuellement et non avec une macro.

Merci d'etre explicite car je ne suis pas un pro d'excel