Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Un vrai plein écran

Un vrai plein écran

7 réponses
Avatar
Steph
Bonsoir,

Y a t'il moyen de visualiser une page Excel en plein écran mais sans la
barre de menu au dessus, j'arrive à supprimé tout sauf ça ?

Merci d'avance,

Steph
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Steph

Dans la feuille de code ThisWorkbook

Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
End Sub

'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub


ChrisV


"Steph" a écrit dans le message de news:

Bonsoir,

Y a t'il moyen de visualiser une page Excel en plein écran mais sans la
barre de menu au dessus, j'arrive à supprimé tout sauf ça ?

Merci d'avance,

Steph




Avatar
Steph
Salut,

Mais c'est que ça marche en plus !!!
Merci beaucoup, j'ai encore appris quelque chose

Salutations,

Steph

"ChrisV" a écrit dans le message de news:
#
Bonjour Steph

Dans la feuille de code ThisWorkbook

Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
End Sub

'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub


ChrisV


"Steph" a écrit dans le message de news:

Bonsoir,

Y a t'il moyen de visualiser une page Excel en plein écran mais sans la
barre de menu au dessus, j'arrive à supprimé tout sauf ça ?

Merci d'avance,

Steph








Avatar
Starwing
Content de te revoir ChrisV,
Souhaitons un retour prolongé...

--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--
Avatar
ChrisV
Salut Starwing,

Souhaitons un retour prolongé...
Content d'être de retour parmi vous,

Vous m'manquiez, snifff...! ;-)


ChrisV


"Starwing" a écrit dans le message de news:

Content de te revoir ChrisV,
Souhaitons un retour prolongé...

--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--




Avatar
Ctitout
Bonjour
misère de misère
je n'arrive plus à ouvrir Excel avec le barre d'outil j'ouvre en plein
écran
que faut il faire je suis dans la mouïse

merci
---
Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°

ChrisV wrote:
Bonjour Steph

Dans la feuille de code ThisWorkbook

Private Sub Workbook_Open()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
'
End Sub

'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub


ChrisV


"Steph" a écrit dans le message de news:

Bonsoir,

Y a t'il moyen de visualiser une page Excel en plein écran mais sans
la barre de menu au dessus, j'arrive à supprimé tout sauf ça ?

Merci d'avance,

Steph



--


Avatar
ChrisV
Bonjour Ctitout,

Excel étant ouvert, Alt+F11, puis dans le fenêtre de VBE, Insertion/Module
Sous la partie (Général) colle le code suivant:

Sub reviUnJP
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub

puis, F5


ChrisV


"Ctitout" a écrit dans le message de news:

Bonjour
misère de misère
je n'arrive plus à ouvrir Excel avec le barre d'outil j'ouvre en plein
écran
que faut il faire je suis dans la mouïse

merci
---
Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°


Avatar
Ctitout
Bonsoir
ouf merci
cela fonctionne
bonne soirée


---
Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°

ChrisV wrote:
Bonjour Ctitout,

Excel étant ouvert, Alt+F11, puis dans le fenêtre de VBE,
Insertion/Module Sous la partie (Général) colle le code suivant:

Sub reviUnJP
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
End With
End Sub

puis, F5


ChrisV


"Ctitout" a écrit dans le message de news:

Bonjour
misère de misère
je n'arrive plus à ouvrir Excel avec le barre d'outil j'ouvre en
plein écran
que faut il faire je suis dans la mouïse