Discussion :

[bob456]

Bonjour,

Je n'arrive pas à trouver :

J'aimerais trouver comment afficher seulement une page en mode paysage, et effacer toutes les cellules autour de celle-ci.

Pour le moment j'avais fais ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Selectionne et efface toutes les cellules
Cells.Select
Selection.Clear
'Met la feuille en mode paysage
ActiveSheet.PageSetup.Orientation = xlLandscape
'Met la feuille en mode "appercu des sauts de pages"
ActiveWindow.View = xlPageBreakPreview
'Met la zone imprimable à la limite de la taille de la feuille
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$39"
'Active le zoom normal (sinon il peut y avoir des zoom trop petit quand on ouvre le fichier)
ActiveWindow.Zoom = 100
'On supprime le quadrillage
ActiveWindow.DisplayGridlines = False

Mais le soucis c'est que j'ai un gros "PAGE 1" qui apparait...Donc je ne sais pas comment régler le soucis..

merci de votre aide

[bob456]

Bonjour,

Si vous voulez plus d’informations n'hésitez pas à demander.
Merci