Répéter une macro

[snake38]

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!!!

 

[Hervé]

Bonjour snake, le forum

As tu essayer de passer par l'evenement newsheet dans le module Thisworkbook :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Range('a1') = 'TOTO'
End Sub

Ce type de macro te placera TOTO en A1 pour chaque nouvelle feuille créer.

salut

 

[snake38]

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!!!