Discussion :

[Vba14]

Bonjour à tous et content de vous retrouver,

Dans un fichier Excel, j'ai 15 feuilles de calcul. La feuille 1 est nommée "Accueil".
Je souhaiterai que cette seule feuille soit en plein écran à l'ouverture du fichier et lorsque que la feuille est activée, les autres feuilles restant inchangées.

Je n'arrive pas à trouver de l'aide sur le web, alors je me tourne vers vous.

Pouvez-vous m'aider s'il vous plait ?
Je vous en remercie par avance

[MarcelG]

Salut,

Je n'arrive pas à trouver de l'aide sur le web, alors je me tourne vers vous.

Mmmmh!

Il te suffit d'activer le plein écran à ton objet application
Je te laisse traduire.

[Vba14]

J'ai bien ce code
Je les ai mis dans un module et je les appelle à l'ouverture du fichier et fermeture à partir de ThisWorkBook
Je pourrai remplacer chaque "Application" par un With Application et With ActiveWindow

Mais je ne suis certain que cela s'appliquera qu'à la feuille "Accueil"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub affichage_normal()
    Application.ScreenUpdating = False
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayGridlines = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.WindowState = xlMaximized
 
End Sub
 
Sub affichage_plein_ecran()
    Application.ScreenUpdating = False
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.ScreenUpdating = True
 
End Sub

[MarcelG]

Je pourrai remplacer chaque "Application" par un With Application et With ActiveWindow

C'est - toujours - une bonne idée.
Le code gagnera en lisibilité.

Il te faut juste bien activer la feuille "Accueil" AVANT d'appliquer ces procédures.

Attention, toutefois, à bien gérer tes boutons de commande sur cette feuille.

Exemple le bouton "Quitter" aura pour fonction successivement de:
1 - Rétablir l'affichage
2 - Fermer le classeur

Je préfère, pour ma part, procéder ainsi plutôt que de gérer une procédure évènementielle.

[Vba14]

Merci MarcelG pour vos suggestions