Discussion :

[remondii]

Bonjour à tous,

J'ai lu cette discussion.

J'ai utilisé la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub copie_sheet()
    'total_sheet = ActiveWorkbook.Sheets.Count
    Dim num As Long
    Dim ws As Worksheet
     num = 1
 
    'on va boucler sur tout les sheets pour controler si num ne corespond pas au dernier chiffre dans le nom des sheets
    ' pour eviter une erreur
    For Each ws In Application.Worksheets
        If Right(ws.Name, 1) = num Then
            num = num + 1 'on ajoute 1 a num
        Else
            'on quitte la boucle si le numero est atteint
            Exit For
        End If
    Next
    Sheets("P01").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "P" & "0" & num
End Sub
 
Private Sub CommandButton1_Click()
 
End Sub

Qui fonctionne très bien....
En revanche j'ai besoin que quand je créer la nouvelle feuille avec son nouveau nom, ça copie toute la mise en forme et les formules de la première feuille qui s'appelle P01.
Je ne sais pas programmer du tout, je pense que ça n'est malgré tout pas si dur.... Si quelqu'un pouvait m'aider ça serait super.
Bonne journée.
(j'espère que je peux poster sur un sujet résolu....)

[Invité]

Bonjour,
Le code utilisé crée une copie 100% conforme de "PO1", je ne comprends donc pas ce que tu désires.