Pleine page
Résolu
CRCA79
Messages postés
89
Statut
Membre
-
JCB40 Messages postés 3459 Statut Membre -
JCB40 Messages postés 3459 Statut Membre -
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 tableau excel sur une page - 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
71822
Statut
Contributeur
17 376
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