Pleine page Résolu/Fermé

Question

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.

Raymond PENTIER · Answer

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.

JCB40 · Answer

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

JCB40 · Answer

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

JCB40 · Answer

il n'y a rien a faire pour activer la macro  change de feuille et tu verras que la feuille 2 va passer en plein écran
Le format xlsm c'est le format excel supportant les macros