Re : selection de feuilles avec array
J'ai essayé vos propositions mais sans resultats. Je vous joins la macro cela sera plus parlant
Sub margesetzone()
Dim S As Worksheet
'---
Application.ScreenUpdating = False
For Each S In Worksheets(Array(8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25))
With S.PageSetup
.Orientation = xlPortrait
.CenterHorizontally = True
.LeftMargin = "0"
.RightMargin = "0"
.TopMargin = "30"
.BottomMargin = "0"
zoneimpression S
largeurco S
hauteurco S
End With
Next S
Sheets("BD").Select
Application.ScreenUpdating = True
End Sub
trois macro sont liées mais n'ont pas d'incidence sur son fonctionnement.
Message d'erreur : Erreur de compilation Next sans For