Sélection de différentes feuilles
Bonjour,
J'ai fait ma macro de mise en page, avec une feuille et il faudrait qu'en sélectionnant ma macro, la macro s'applique à chaque feuille de mon classeur (une cinquantaine).
Il s'agit de feuille identique niveau mise en page à la base.
En sachant que la feuille Sheets("ARRAULT, CHARLENE (05232610)").Select est ma feuille source, et la feuille Sheets("MEUNIER, CLEMENCE (10137200)").Select est celle que j'ai modifié dans la macro.
Je pensais remplacer Sheets("MEUNIER, CLEMENCE (10137200)").Select par "toutes les feuilles" mais je ne sais pas comment le coder.
Sub MISENPAGE()
'
' MISENPAGE Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+A
'
Columns("A:E").Select
Selection.Copy
Sheets("MEUNIER, CLEMENCE (10137200)").Select
Columns("A:D").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A3").Select
Selection.ClearContents
Range("B4").Select
Selection.Copy
Range("C4").Select
ActiveSheet.Paste
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
Range("A3").Select
ActiveSheet.Paste
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Range("C3").Select
ActiveSheet.Paste
Range("A4:C4").Select
Application.CutCopyMode = False
Selection.ClearContents
Rows("4:4").RowHeight = 17.25
Rows("4:4").RowHeight = 10.5
Rows("2:2").RowHeight = 7.5
Rows("3:3").RowHeight = 18
Sheets("ARRAULT, CHARLENE (05232610)").Select
Columns("E:E").Select
Selection.Copy
Sheets("MEUNIER, CLEMENCE (10137200)").Select
Columns("E:E").Select
ActiveSheet.Paste
Range("G6").Select
End Sub
Merci d'avance à celui ou celle qui aura une solution ! bonne journée
Bonjour
- Il y a d'une part pas de ménage à faire dans ce code manifestement issu de l'enregistreur macros, notamment les select :
ce type de code par exemple
peut être remplacé par
remplacé par - d'autre part il faut ajouter des règles d'identification du classeur et des onglets car là on ne sait pas depuis quelle feuille tu copies et sans ces précisions tu risques que le code fasse n'importe quoi n'importe où
A noter que manuellement, sauf si présence de tableaux structurés on peut copier une mise en forme sur l'ensemble des onglets en utilisant le mode groupe de travail de même que supprimer des valeurs ou copier des valeurs, régler les hauteurs de ligne, etc, etc