Pleine page

Résolu
CRCA79 Messages postés 93 Date d'inscription   Statut Membre Dernière intervention   -  
JCB40 Messages postés 3058 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.

4 réponses

  1. Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   17 480
     
    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.
    0
    1. Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   17 480
       
      Je n'ai pas ouvert le fichier joint : 9,6 Mo c'est un peu beaucoup pour moi ...
      0
  2. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    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

    0
    1. CRCA79 Messages postés 93 Date d'inscription   Statut Membre Dernière intervention  
       
      Bonjour, mais c'est quoi le "ThisWorkBooK" .....
      0
  3. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    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

    0
    1. CRCA79 Messages postés 93 Date d'inscription   Statut Membre Dernière intervention  
       
      Désolée mais cela ne fonctionne pas ... Le format xlsm c'est le format excel supportant les macros, c'est cela ... Par contre pour activer la macro, il ne faut pas faire quelque chose ...... Merci.
      0
  4. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479
     
    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
    0
    1. CRCA79 Messages postés 93 Date d'inscription   Statut Membre Dernière intervention  
       
      ok merci
      0
      1. JCB40 Messages postés 3058 Date d'inscription   Statut Membre Dernière intervention   479 > CRCA79 Messages postés 93 Date d'inscription   Statut Membre Dernière intervention  
         
        Tu dis ok merci
        C'est bien mais es-tu parvenu à ce que cela fonctionne?
        0