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

Barre menu

3 réponses
Avatar
Guy72
Bonjour
Que faut il faire pour faire apparaître ma barre de menus ?
Cordialement
Guy
Signaler un problème avec ce contenu

3 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
Philippe.R
Bonsoir Guy,

Comme ceci par exemple ?

http://www.excelabo.net/excel/barresoutils.php#lapasla
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Guy72" a écrit dans le message de
news:
Bonjour
Que faut il faire pour faire apparaître ma barre de menus ?
Cordialement
Guy



Avatar
Guy72
Bonjour Philippe
C'est justement à cause de la copie de ce code que j'ai perdu ma barre de
menu.
Cordialement
Guy

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir Guy,

Comme ceci par exemple ?

http://www.excelabo.net/excel/barresoutils.php#lapasla
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Guy72" a écrit dans le message de
news:
Bonjour
Que faut il faire pour faire apparaître ma barre de menus ?
Cordialement
Guy






Avatar
Philippe.R
Bonsoir Guy,
Cette partie du code :

Dim Barre As Variant
For Each Barre In Barres
Application.CommandBars(Barre).Visible = True
Next Barre
Application.CommandBars("worksheet menu bar").Enabled = True

ne fonctionne pas ?

Je te propose alors d'essayer celui ci, publié naguère par Modeste :

Sub Sesame()
Dim cmdB As CommandBar
i = 1
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
If i < 5 Then cmdB.Visible = True
i = i + 1
Next cmdB
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With

For Each WS In ActiveWorkbook.Worksheets
WS.Visible = True
WS.Activate
WS.Cells.EntireColumn.Hidden = False
WS.Cells.EntireRow.Hidden = False
WS.[A1].Select
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayGridlines = True
.FreezePanes = False
End With
Next
ActiveWorkbook.Worksheets(1).Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Guy72" a écrit dans le message de
news:
Bonjour Philippe
C'est justement à cause de la copie de ce code que j'ai perdu ma barre de
menu.
Cordialement
Guy

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir Guy,

Comme ceci par exemple ?

http://www.excelabo.net/excel/barresoutils.php#lapasla
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Guy72" a écrit dans le message de
news:
Bonjour
Que faut il faire pour faire apparaître ma barre de menus ?
Cordialement
Guy