Discussion :

[sl.info]

Bonjour,
Je voudrais reproduire l'action de sélectionner plusieurs feuilles pour y appliquer la même mise en page.

J'ai bien pensé à enregistrer une macro (ci-dessous) lorsque j'exécute les actions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    Sheets("Feuil1").Activate
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .Zoom = False
        .FitToPagesWide = False
        .FitToPagesTall = 1
    End With
End Sub

Mais lorsque je la lance, le résultat ne s'applique que sur la feuille active et non sur les feuilles sélectionnées...
Je pense que c'est un problème de déclaration de l'objet sur lequel les actions doivent s'appliquer, mais... je cale...
Bien entendu je ne veux pas appliquer une boucle sur les feuilles pour y appliquer la mise en page car il y en a plus d'une cinquantaine...

Un peu d'aide serait la bienvenue... MERCI !

[ouskel'n'or]

Tu peux tester ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
Dim LesFeuilles As Variant
Dim Feuille As Worksheet
    Set LesFeuilles = Sheets(Array("Feuil1", "Feuil2", "Feuil3"))
    For Each Feuille In LesFeuilles
        With Feuille.PageSetup
            .Orientation = xlLandscape
            .Zoom = False
            .FitToPagesWide = False
            .FitToPagesTall = 1
        End With
    Next
End Sub

Bonne journée

[sl.info]

...Bien entendu je ne veux pas appliquer une boucle sur les feuilles pour y appliquer la mise en page car il y en a plus d'une cinquantaine...

Cela ressemble à ma solution de secours mais le temps d'exécution est multiplié par le nombre de page à traiter...
Je recherche l'objet à déclarer pour traiter les feuilles sélectionnées comme pour le saut de pages qui s'utilise ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Macro1()
    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveSheet.Range("S1")
End Sub

une

[ouskel'n'or]

J'ai bien compris mais "apparemment", PageSetup n'en veut pas le pourquoi de ma solution...
S'il en existe une autre, je suis prenneur.
Bonne chance
A+

[sl.info]

Il semblerait que ce soit la réponse que communiquerai aussi Microsoft (Ils développent des procédures qu'ils sont incapable d'expliquer)
On va donc vivre avec... En attendant de pouvoir accélérer le temps d'exécution de nos codes , on peut au moins les faire fonctionner...
Pour les curieux : http://support.microsoft.com/kb/465002/fr

En tout cas merci pour la rapidité de la réponse