> Tous les forums > Forum Bureautique
 Excel 2003 - Code pour 1 page en largeur et en hauteurSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Gorfous
  Posté le 01/09/2017 @ 14:09 
Aller en bas de la page 
Petit astucien

Bonjour,

Peut-on écrire ce code différemment svp :

Sub Macro1()
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

En vous remerciant.

Publicité
Gorfous
 Posté le 02/09/2017 à 08:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

re,

J'aurai pu mettre le code, ce que je fais.

Sub Macro1()

ActiveSheet.PageSetup.PrintArea = "$A$1:$L$88" '(Zone d'impression A1:L88 à adapter)
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

End Sub



Modifié par Gorfous le 02/09/2017 08:53
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Code bouton pour lien Excel, et onglet pleine page
Largeur Hauteur colonnes en mm dans Excel
mise en page tableau Excel 2003
Raccourci clavier pour Excel 2003
Excel 2003 : macro pour supprimer une ligne
Clavier virtuel dans excel (code pour fermeture)
largeur de la page trop étroite pour imprimer
unité de largeur des colones EXCEL 2003
Code VBA Excel -aide pour écrire
Aide pour réduire une page d'excel
Plus de sujets relatifs à Excel 2003 - Code pour 1 page en largeur et en hauteur
 > Tous les forums > Forum Bureautique