Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Mise en page automatique de tous les onglets du classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion JUMJ
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

JUMJ

XLDnaute Junior
Bonjour,

En recherchant sur le forum j'ai réussi à créer une macro me permettant d'ajuster automatiquement la mise en page d'un onglet mais cela fonctionne uniquement pour l'onglet actif. Je souhaiterai modifier ma macro pour qu'elle le fasse pour tous les onglets du classeur.
Voici ma macro :
Sub mise_en_page_automatique()
Dim DLCA&, DC&
'dernière ligne non vide en colonne A
DLCA = Cells(Rows.Count, 1).End(xlUp).Row
'Dernière cellule non vide sur la dernière ligne
DC = Cells(DLCA, Columns.Count).End(xlToLeft).Column
'Définition de la zone d'impression
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(DLCA, DC)).Address
End Sub

Merci pour votre aide
 
Trier par date Trier par votes
Bonjour.
La traduction pour toutes les feuilles serait celle ci :
VB: 
Sub MiseEnPageAutomatique()
Dim F As Worksheet, DLCA&, DC&
For Each F In ThisWorkbook.Worksheets
   DLCA = F.Cells(F.Rows.Count, 1).End(xlUp).Row
   'Dernière cellule non vide sur la dernière ligne
   DC = F.Cells(DLCA, F.Columns.Count).End(xlToLeft).Column
   'Définition de la zone d'impression
   F.PageSetup.PrintArea = F.Range(F.Cells(1, 1), F.Cells(DLCA, DC)).Address
   Next F
End Sub
Mais il me semble que comme ça ça devrait avoir le même résultat.
VB: 
Sub MiseEnPageAutomatique()
Dim F As Worksheet
For Each F In ThisWorkbook.Worksheets
   F.PageSetup.PrintArea = F.UsedRange
   Next F
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Merci pour la réponse,
La première macro fonctionne parfaitement, en revanche pour la seconde j'ai le message Erreur d'exécution '13': incompatibilité de type, et le code F.PageSetup.PrintArea = F.UsedRange est surligné en jaune.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
163
CortoXls
C
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
539
jeff1494
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
429
snoopy07
S
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
536
spike29
S
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
505
MBEPID
M
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
258
AlCapone
L
  • Résolu(e)
Microsoft 365 Suppression de cellules vide
Réponses
3
Affichages
493
Le Rouky
L
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
669
escudo
E
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
769
marie3107
M
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
611
Pimpon974
P
  • Résolu(e)
XL 2013 Nommez tous les onglets d'un classeur par rapport à une même cellule dans chaque onglet
Réponses
5
Affichages
678
mapomme
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
481
ZiM
Z
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
419
oguruma
M
  • Question Question
Microsoft 365 Imprimer deux zones d'impression provenant de deux onglets sur une seule feuille
Réponses
5
Affichages
569
herve62
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
564
guiyom
G
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
474
vgendron
D
  • Résolu(e)
Autres Problème de séléction de la dernière colonne + Filtre [VBA]
Réponses
2
Affichages
699
delsart59
D
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…