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

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #25065742
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
--------------------------------------------------------------
MichD
Le #25065842
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
--------------------------------------------------------------
Stef
Le #25067172
Merci pour cette information
"MichD" 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
--------------------------------------------------------------


Publicité
Poster une réponse
Anonyme