Ajouter une feuille en incrémentant de 01 à 12

[Jerry]

Bonjour à tous,
Comment pui-je faire pour ajouter une feuille en cliquant sur un bouton et que cela puisse aller seulement de 01 à 12 (mois de l'année?)
Merci😱

 

[Pierrot93]

Re : Ajouter une feuille en incrémentant de 01 à 12

Bonjour,

regarde ceci, si cela peut t'aider :

Sub test()
Dim i As Byte
For i = 1 To 12
    Worksheets.Add(after:=Sheets(Sheets.Count)).Name = MonthName(i)
Next i
End Sub

Bonne journée
@+

 

[Jerry]

Re : Ajouter une feuille en incrémentant de 01 à 12

Bonjour Pierrot93
Cela fonctionne très bien, et je t'en remercie, tu peux faire la même chose avec un déplacer et copier après?

 

[Pierrot93]

Re : Ajouter une feuille en incrémentant de 01 à 12

Re,

déplacer et copier quoi et où ?

 

[Jerry]

Re : Ajouter une feuille en incrémentant de 01 à 12

En fait je souhaite que le contenu de la première feuille (janvier) soit recopié sur la feuille février et qu'ensuite de la feuille de février je recopie son contenu sur la feuille de mars et ainsi de suite.

 

[Jerry]

Re : Ajouter une feuille en incrémentant de 01 à 12

Il ne me manque plus que la recopie du contenu de la feuille précedente...

Private Sub CommandButton2_Click()
Dim i As Byte
i = Sheets.Count
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = MonthName(i + 1)
End Sub

 

[Pierrot93]

Re : Ajouter une feuille en incrémentant de 01 à 12

Re,

pour copier "janvier" sur "février"...

Sheets("janvier").Cells.Copy Sheets("février").Cells

 

[Jerry]

Re : Ajouter une feuille en incrémentant de 01 à 12

Cela fonctionne mais les boutons de la feuille ne sont pas copier, contrairement lorsque l'on duplique la feuille les boutons suivent.

Private Sub CommandButton2_Click()
Dim i As Byte
i = Sheets.Count
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = MonthName(i + 1)
Sheets(MonthName(i)).Cells.Copy Sheets(MonthName(i + 1)).Cells

End Sub

 

[Pierrot93]

Re : Ajouter une feuille en incrémentant de 01 à 12

Re,

le mieux, serait de copier la feuille :

Worksheets("janvier").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = MonthName(i + 1)

 

[Jerry]

Re : Ajouter une feuille en incrémentant de 01 à 12

Re, OK C'est parfait merci Pierrot93
A+