Pleine page
Résolu
CRCA79
Messages postés
84
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
https://www.cjoint.com/c/IJCp76kc3fV
comment faut il faire pour mettre ma 2eme page en "pleine page", ou en ayant des toutes petites pages ?
Merci de votre aide.
https://www.cjoint.com/c/IJCp76kc3fV
comment faut il faire pour mettre ma 2eme page en "pleine page", ou en ayant des toutes petites pages ?
Merci de votre aide.
A voir également:
- Pleine page
- Boite gmail pleine - Guide
- Supprimer page word - Guide
- Imprimer tableau excel pleine page - Guide
- Imprimer un tableau sur une seule page avec Excel - Guide
- Page d'accueil - Guide
4 réponses
Bonjour.
La mise en page s'applique à toute la feuille ; toutes les pages composant cette feuille ont donc la même apparence et le même affichage.
La mise en page s'applique à toute la feuille ; toutes les pages composant cette feuille ont donc la même apparence et le même affichage.
Raymond PENTIER
Messages postés
58990
Date d'inscription
Statut
Contributeur
Dernière intervention
17 355
Je n'ai pas ouvert le fichier joint : 9,6 Mo c'est un peu beaucoup pour moi ...
Bonsoir
Code a mettre dans ThisWorkBooK de ton classeur
Cordialement
Private Sub Workbook_Open()
Worksheets(1).Activate
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Index
Case 2
Application.DisplayFullScreen = True
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = False
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
Case Else
Application.DisplayFullScreen = False
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = True
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
End Select
End Sub
Code a mettre dans ThisWorkBooK de ton classeur
Cordialement
Private Sub Workbook_Open()
Worksheets(1).Activate
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Index
Case 2
Application.DisplayFullScreen = True
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = False
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
Case Else
Application.DisplayFullScreen = False
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = True
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
End Select
End Sub
Bonjour
Tu ouvres ton dossier tu cliques sur les touches Alt+ F11 ,une page blanche apparait sur sa gauche
tu vas voir le nom de tes feuilles et ThisWorkBooK ,tu cliques dessus ,tu colles le code dans la feuille blanche et tu enregistres ton fichier au format xlsm.
Tu reviens si problème
Cordialement
Tu ouvres ton dossier tu cliques sur les touches Alt+ F11 ,une page blanche apparait sur sa gauche
tu vas voir le nom de tes feuilles et ThisWorkBooK ,tu cliques dessus ,tu colles le code dans la feuille blanche et tu enregistres ton fichier au format xlsm.
Tu reviens si problème
Cordialement