Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Mettre une page en format paysage après une page portrait ...

3 réponses
Avatar
Stef
Bonsoir,

Je suis sous excel 2003.

Est-il possible dans un même onglet d'une feuille excel d'avoir une page
portrait suivi d'une page paysage ou simplement pouvoir modifier
l'orientation des pages dans un même onglet.

Je vous en remercie par avance

3 réponses

Avatar
MichD
Bonjour,

Oui c'est possible.

Tu as 2 façons de le faire.

A ) Il faut utiliser les vues personnalisées
(la commande est probablement dans le menu "affichage" en 2003.)

- Tu sélectionnes la plage à imprimer (portrait)
- Menu fichier / définir une zone d'impression.
- Tu peux définir exactement la mise en page que tu désires.
- Lorsque c'est fait, tu appelles la commande "Vue (affichage) personnalisée"
- Dans la fenêtre, Bouton "ajouter", tu donnes un nom et tu coches les 2
cases à cocher de la fenêtre.
- Un clic sur OK

B ) Tu répètes la même chose pour une autre plage de données avec la
mise en page appropriée.

C ) Lorsque tu veux imprimer, il s'agit que tu appelles la vue personnalisée que
tu veux imprimer et tu lances l'impression.

D ) L'autre approche se fait par programmation.



MichD
--------------------------------------------------------------
Avatar
MichD
Par programmation, cela pourrait ressembler à ceci :

à mettre dans le Thisworkbook du classeur.

Ne pas oublier de définir les variables selon ton environnement
dans la procédure.

'-------------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim Sh As Worksheet, Arr(), A As Integer
Dim NomFeuille As String, Elt As Variant

'************Variables à définir********************

NomFeuille = "Feuil1" 'Nom de l'onglet de la feuille dont
'tu veux imprimer en portrait et paysage

'Adresse des 2 plages à imprimer (Portrait - Paysage)
Arr = Array("A1:G25", "K1:S26")

'****************************************************

For Each Sh In ActiveWindow.SelectedSheets
Cancel = False
If UCase(Sh.Name) = UCase(NomFeuille) Then
For Each Elt In Arr
'Première adresse en portrait
If A = 0 Then
With Sh
With .PageSetup
.PrintArea = Elt
.CenterFooter = ThisWorkbook.Name
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
End With
End With
A = A + 1
Else
'L'autre adresse en paysage.
With Sh
With .PageSetup
.PrintArea = Elt
.CenterFooter = ThisWorkbook.Name
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
End With
End With
End If
Application.EnableEvents = False
Sh.PrintPreview 'en remplacer après par .PrintOut
Sh.PageSetup.PrintArea = ""
Application.EnableEvents = True
Next
Cancel = True
End If
Next
End Sub
'-------------------------------------------------------



MichD
--------------------------------------------------------------
"MichD" a écrit dans le message de groupe de discussion : kani7m$vi$

Bonjour,

Oui c'est possible.

Tu as 2 façons de le faire.

A ) Il faut utiliser les vues personnalisées
(la commande est probablement dans le menu "affichage" en 2003.)

- Tu sélectionnes la plage à imprimer (portrait)
- Menu fichier / définir une zone d'impression.
- Tu peux définir exactement la mise en page que tu désires.
- Lorsque c'est fait, tu appelles la commande "Vue (affichage) personnalisée"
- Dans la fenêtre, Bouton "ajouter", tu donnes un nom et tu coches les 2
cases à cocher de la fenêtre.
- Un clic sur OK

B ) Tu répètes la même chose pour une autre plage de données avec la
mise en page appropriée.

C ) Lorsque tu veux imprimer, il s'agit que tu appelles la vue personnalisée que
tu veux imprimer et tu lances l'impression.

D ) L'autre approche se fait par programmation.



MichD
--------------------------------------------------------------
Avatar
Stef
Merci pour cette information
"MichD" a écrit dans le message de news:
kani7m$vi$
Bonjour,

Oui c'est possible.

Tu as 2 façons de le faire.

A ) Il faut utiliser les vues personnalisées
(la commande est probablement dans le menu "affichage" en 2003.)

- Tu sélectionnes la plage à imprimer (portrait)
- Menu fichier / définir une zone d'impression.
- Tu peux définir exactement la mise en page que tu désires.
- Lorsque c'est fait, tu appelles la commande "Vue (affichage)
personnalisée"
- Dans la fenêtre, Bouton "ajouter", tu donnes un nom et tu coches les 2
cases à cocher de la fenêtre.
- Un clic sur OK

B ) Tu répètes la même chose pour une autre plage de données avec la
mise en page appropriée.

C ) Lorsque tu veux imprimer, il s'agit que tu appelles la vue
personnalisée que
tu veux imprimer et tu lances l'impression.

D ) L'autre approche se fait par programmation.



MichD
--------------------------------------------------------------