Formatter toutes les pages ensemble

Bonjour Yza,

Tu pourrais utiliser quelque chose comme :

Si tu veux que cela s'applique aussi aux feuilles graphiques contenues dans ton classeur, Remplace Worksheets.Select par
Sheets.Select

'---------------------------
Dim Sh As Worksheet, N As String

Worksheets.Select

For Each Sh In ActiveWindow.SelectedSheets
With Sh.PageSetup
.LeftMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
End With
Next

Worksheets(N).Select
'---------------------------


Salutations!



"Yza" <nospam-misange@tree.fr> a écrit dans le message de news: uofFLFDKFHA.3652@TK2MSFTNGP10.phx.gbl...
Bonjour,

Je dois formatter de la même façon toutes les feuilles de plusieurs
classeurs (un classeur à la fois).

Y a-t-il une commande plus simple que le "Sheets(Array(...)).Select adapté à
chaque classeur ou un For...Next qui traite les feuilles une à une?

Mon code actuel est: du genre
Sheets(Array("AAA", "BBB", "CCC")).Select
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
End With
Dans lequel je change la première ligne.selon le classeur

Merci!


Yza