Pleine page [Résolu]

Messages postés
78
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
29 octobre 2019
- - Dernière réponse : JCB40
Messages postés
1220
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
5 novembre 2019
- 29 oct. 2019 à 16:04
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.
Afficher la suite 

4 réponses

Messages postés
50247
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
6 novembre 2019
11097
0
Merci
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.
Raymond PENTIER
Messages postés
50247
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
6 novembre 2019
11097 -
Je n'ai pas ouvert le fichier joint : 9,6 Mo c'est un peu beaucoup pour moi ...
Commenter la réponse de Raymond PENTIER
Messages postés
1220
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
5 novembre 2019
154
0
Merci
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

CRCA79
Messages postés
78
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
29 octobre 2019
-
Bonjour, mais c'est quoi le "ThisWorkBooK" .....
Commenter la réponse de JCB40
Messages postés
1220
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
5 novembre 2019
154
0
Merci
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

CRCA79
Messages postés
78
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
29 octobre 2019
-
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.
Commenter la réponse de JCB40
Messages postés
1220
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
5 novembre 2019
154
0
Merci
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
CRCA79
Messages postés
78
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
29 octobre 2019
-
ok merci
JCB40
Messages postés
1220
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
5 novembre 2019
154 > CRCA79
Messages postés
78
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
29 octobre 2019
-
Tu dis ok merci
C'est bien mais es-tu parvenu à ce que cela fonctionne?
Commenter la réponse de JCB40