Copier une feuille 52 fois

porcinet82

XLDnaute Barbatruc

• 2 Janvier 2006

• #2

Salut Bobo,

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

Code:

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

@+

 

Vote positif 0 Vote négatif

coco_lapin

XLDnaute Impliqué

• 2 Janvier 2006

• #3

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?

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 2 Janvier 2006

• #4

Bonjour le Forum, Bobo,

Voici un petit code VBA qui fera ca tres bien :

Code:

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

 

Vote positif 0 Vote négatif

coco_lapin

XLDnaute Impliqué

• 2 Janvier 2006

• #5

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?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 2 Janvier 2006

• #6

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.

 

Vote positif 0 Vote négatif

B

BOBO

Guest

• 2 Janvier 2006

• #7

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

 

Vote positif 0 Vote négatif