Répéter une macro

S

snake38

Guest
Bonjour,

Tous est dans le sujet si vous avez une idée merci a tous!!

En fait grâce a la macro que je me suis faite je peux inséré une nouvelle feuille toute prete avec la mise en forme et tout ce que je veux garder mais j'aimerai pouvoir répéter cette opération a chaque feuille que je veux créer!!!
 
S

snake38

Guest
Voila en fait j'ai exactement cette macro

Sub New_onglet()
Dim Mois_act As Variant
Dim Date_act As Date

Cells.Select
Selection.Copy

Mois_act = Mid(Date, 4, 2)
Select Case (Mois_act + 1)
Case 1
Sheets.Add.Name = 'Janvier 2005'
Case 2
Sheets.Add.Name = 'Février 2005'
Case 3
Sheets.Add.Name = 'Mars 2005'
Case 4
Sheets.Add.Name = 'Avril 2005'
Case 5
Sheets.Add.Name = 'Mai 2005'
Case 6
Sheets.Add.Name = 'Juin 2005'
Case 7
Sheets.Add.Name = 'Juillet 2005'
Case 8
Sheets.Add.Name = 'Août 2005'
Case 9
Sheets.Add.Name = 'Septembre 2005'
Case 10
Sheets.Add.Name = 'Octobre 2005'
Case 11
Sheets.Add.Name = 'Novembre 2005'
Case 12
Sheets.Add.Name = 'Décembre 2005'
End Select

ActiveSheet.Paste
Cells(2, 1).Value = ActiveSheet.Name
Range('A5:E79').ClearContents
ActiveSheet.Move , Worksheets(Worksheets.Count)
Selection.ClearComments
End Sub

Et j'aimerai pouvoir la répéter a chaque nouvelle feuille que je veux créer

Merci de vote aide!!!
 

Discussions similaires

Statistiques des forums

Discussions
311 716
Messages
2 081 828
Membres
101 823
dernier inscrit
mohamed3s