recopier onglet RESOLU

[faroka]

RESOLU

Bonsoir ,
je suis à la recherche d'une macro me permettant de recopier la feuille "Format"
( texte et mise en forme) dans les autres feuilles qui ont été ouvertes auparavant par

Private Sub Créer_Nommer_Feuilles_Click() .


Cette liste , située dans la feuille "liste" colonne b, pouvant être modifiée , les nouveaux onglets sont automatiquement renommés.
voir fichier joint

 

[CHALET53]

Re : recopier onglet

bonjour,

Essai :

Sub Macro1()
'
' Macro1 Macro
'
Sheets("FORMAT").Activate
'
Cells.Select
Selection.Copy
For Each sht In ActiveWorkbook.Sheets
If sht.Name = "FORMAT" Then GoTo label1

If sht.Name = "fEUIL1" Then GoTo label1
a = sht.Name
Sheets(a).Select
Range("A1").Select
ActiveSheet.Paste

label1:
Next

Sheets("FORMAT").Select
Application.CutCopyMode = False
Range("A1").Select
End Sub

 

[faroka]

Re : recopier onglet

Bonsoir Chalet53
Merci pour ton aide. j'ai récupéré ton code et je le test de suite.
durant la nuit dernière ...... eh bé vi .... , j'ai réussi à avancer dans mon projet et avec ta macro , cela en sera plus facile
a +

 

[faroka]

Re : recopier onglet

Re bonsoir
OK macro fonctionne avec qq petits aménagements
Merci à toi