Pleine page [Résolu]

Signaler
Messages postés
81
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
1 mai 2020
-
Messages postés
2011
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
2 août 2020
-
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

Messages postés
52044
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
4 août 2020
13 791
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.
Messages postés
52044
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
4 août 2020
13 791
Je n'ai pas ouvert le fichier joint : 9,6 Mo c'est un peu beaucoup pour moi ...
Messages postés
2011
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
2 août 2020
322
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

Messages postés
81
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
1 mai 2020

Bonjour, mais c'est quoi le "ThisWorkBooK" .....
Messages postés
2011
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
2 août 2020
322
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

Messages postés
81
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
1 mai 2020

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.
Messages postés
2011
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
2 août 2020
322
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
Messages postés
81
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
1 mai 2020

ok merci
Messages postés
2011
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
2 août 2020
322 >
Messages postés
81
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
1 mai 2020

Tu dis ok merci
C'est bien mais es-tu parvenu à ce que cela fonctionne?