> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
414,49 €Ecran PC incurvé 34 pouces Gigabyte G34WQC (WQHD, 144 Hz) à 414,49 € livré
Valable jusqu'au 18 Octobre

Amazon Espagne fait une promotion sur l'écran PC incurvé 34 pouces Gigabyte G34WQC qui passe à 396,68 €. Comptez 17,81 € pour la livraison en France soit un total de 414,49 € livré. On le trouve ailleurs à partir de 549 €. Cet écran possède une dalle incurvée 34 pouces VA WQHD (3440x1440) à 1 ms et à 144 Hz (FreeSync Premium et Adaptive Sync). Elle offre le HDR400 et intègre 2 haut-parleurs 2W. Son pied est réglable en hauteur et en inclinaison.


> Voir l'offre
64,99 €Assistant vocal Amazon Echo Show 8 avec Alexa à 64,99 €
Valable jusqu'au 18 Octobre

Pour ses membres Prime, Amazon fait une promotion sur l'assistant vocal Amazon Echo Show 8 qui passe à 64,99 € (au lieu de 129,99 €). L'appareil piloté par la voix et vos doigts fonctionne avec Alexa, l’intelligence artificielle développée par Amazon. Vous pourez avec elle écouter de la musique, interagir avec vos appareils domotiques, écouter les infos, des livres audio la radio, connaître la météo et d’accéder à des milliers d’autres possibilités grâce aux Skills : recettes de cuisine, petits jeux, etc. Grâce à son écran HD de 8 pouces, vous pourrez également regarder des séries, des films, des photos, afficher des recettes de cuisine, appeler vos amis en visio, contrôler vos caméras de sécurité, etc...


> Voir l'offre
105,37 €SSD Interne M.2 NVMe Samsung 970 Evo Plus 1 To à 105,37 € livré
Valable jusqu'au 18 Octobre

Amazon Allemagne fait une promotion sur le SSD Interne M.2 NVMe Samsung 970 Evo Plus 1 To qui passe à 100,74 € (avec la TVA ajustée). Comptez 4,63 € pour la livraison en France soit un total de 105,37 € livré. On le trouve ailleurs autour de 140 €. Ce SSD offre des taux de transfert de 3400 Mo /s en lecture et 2300 Mo/s en écriture. 

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane.


> Voir l'offre

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