Annulation discussion

[Moreno076]

A annuler

 

[gmb]

Re : Maintien mise en forme dans macro

Bonjour

Si ta feuilles "Planche" est ton modèle, alors essaie ce code :

Dim Feuilles, F
Sub MiseEnForme()
    
    Feuilles = Array("Zone", "Fiche reappro", "Fiche reappro (2)", "Code Barre")
    For Each F In Feuilles
        Sheets(F).Cells.MergeCells = False
        Sheets("Planche").Cells.Copy
        Sheets(F).Range("A1").PasteSpecial xlPasteFormats
    Next F
End Sub

Bye !

 

[Moreno076]

Re : Maintien mise en forme dans macro

Bonsoir GMB, j'ai essayé de la rajouter mais ça ne fonctionne pas.
Est ce que j'ai mis la bonne syntaxe?

Merci

Bonjour

Si ta feuilles "Planche" est ton modèle, alors essaie ce code :

Dim Feuilles, F
Sub MiseEnForme()
    
    Feuilles = Array("Zone", "Fiche reappro", "Fiche reappro (2)", "Code Barre")
    For Each F In Feuilles
        Sheets(F).Cells.MergeCells = False
        Sheets("Planche").Cells.Copy
        Sheets(F).Range("A1").PasteSpecial xlPasteFormats
    Next F
End Sub

Bye !

 

[gmb]

Re : Maintien mise en forme dans macro

Re
Ah oui ! Les variables se déclarent en début de module ou en début de procédure, mais pas entre 2 procédures.
Voir p.J.