Savez-vous comment résoudre ce problème.
Le menu a disparu "fichier, edition, etc..."
J'essaie de faire la même chose sur mon excel, je ne vois pas comment la
faire disparaitre, alors comment le faire réapparaitre.
J'ai eu la personne qui a ce probleme au tel, donc je n'ai pas pu voir sur
place.
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
CAP2
Salut,
essaie un clic-droit sur une barre d'outils, puis "Personnaliser". Puis tu vas sur l'onglet "Barres d'outils" et tu recoches "Barre de menus feuille de calcul".
Ca marche ?
CAP2
Salut,
essaie un clic-droit sur une barre d'outils, puis "Personnaliser". Puis tu
vas sur l'onglet "Barres d'outils" et tu recoches "Barre de menus feuille de
calcul".
essaie un clic-droit sur une barre d'outils, puis "Personnaliser". Puis tu vas sur l'onglet "Barres d'outils" et tu recoches "Barre de menus feuille de calcul".
Ca marche ?
CAP2
idrevetnom
Bonjour, j'ai eu ce problème il y a quelque temps, et quelqu'un de ce forum avait proposé cette sub, à coller dans l'éditeur VBA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ça devrait marcher
Bonjour, j'ai eu ce problème il y a quelque temps, et quelqu'un de ce forum
avait proposé cette sub, à coller dans l'éditeur VBA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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
Bonjour, j'ai eu ce problème il y a quelque temps, et quelqu'un de ce forum avait proposé cette sub, à coller dans l'éditeur VBA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ça devrait marcher
hawk
Merci, c'etait tout con, je vais voir si c'est le meme probleme !
"CAP2" a écrit dans le message de news:
Salut,
essaie un clic-droit sur une barre d'outils, puis "Personnaliser". Puis tu vas sur l'onglet "Barres d'outils" et tu recoches "Barre de menus feuille de
calcul".
Ca marche ?
CAP2
Merci, c'etait tout con, je vais voir si c'est le meme probleme !
"CAP2" <CAP2@discussions.microsoft.com> a écrit dans le message de
news:C8512496-BA1F-4F3E-999C-FE486EFFBCB9@microsoft.com...
Salut,
essaie un clic-droit sur une barre d'outils, puis "Personnaliser". Puis tu
vas sur l'onglet "Barres d'outils" et tu recoches "Barre de menus feuille
de
Merci, c'etait tout con, je vais voir si c'est le meme probleme !
"CAP2" a écrit dans le message de news:
Salut,
essaie un clic-droit sur une barre d'outils, puis "Personnaliser". Puis tu vas sur l'onglet "Barres d'outils" et tu recoches "Barre de menus feuille de
calcul".
Ca marche ?
CAP2
hawk
Finalement non, la personne dont je parle n'a pas le menu affichage, donc ne peut pas aller dans la personnalisation des barres d'outils !
"CAP2" a écrit dans le message de news:
Salut,
essaie un clic-droit sur une barre d'outils, puis "Personnaliser". Puis tu vas sur l'onglet "Barres d'outils" et tu recoches "Barre de menus feuille de
calcul".
Ca marche ?
CAP2
Finalement non, la personne dont je parle n'a pas le menu affichage, donc ne
peut pas aller dans la personnalisation des barres d'outils !
"CAP2" <CAP2@discussions.microsoft.com> a écrit dans le message de
news:C8512496-BA1F-4F3E-999C-FE486EFFBCB9@microsoft.com...
Salut,
essaie un clic-droit sur une barre d'outils, puis "Personnaliser". Puis tu
vas sur l'onglet "Barres d'outils" et tu recoches "Barre de menus feuille
de
Finalement non, la personne dont je parle n'a pas le menu affichage, donc ne peut pas aller dans la personnalisation des barres d'outils !
"CAP2" a écrit dans le message de news:
Salut,
essaie un clic-droit sur une barre d'outils, puis "Personnaliser". Puis tu vas sur l'onglet "Barres d'outils" et tu recoches "Barre de menus feuille de
calcul".
Ca marche ?
CAP2
CAP2
Re,
j'ai bien dit de faire un clic-droit dans une barre d'outils (avec des boutons), pas d'aller sur le menu Affichage (puisque le but du jeu c'est le faire revenir les menus !!)...
Ressaie ;o))
CAP2
Re,
j'ai bien dit de faire un clic-droit dans une barre d'outils (avec des
boutons), pas d'aller sur le menu Affichage (puisque le but du jeu c'est le
faire revenir les menus !!)...
j'ai bien dit de faire un clic-droit dans une barre d'outils (avec des boutons), pas d'aller sur le menu Affichage (puisque le but du jeu c'est le faire revenir les menus !!)...
Ressaie ;o))
CAP2
hawk
Merci beaucoup !
c'etait la reponse au probleme :)
"idrevetnom" a écrit dans le message de news:
Bonjour, j'ai eu ce problème il y a quelque temps, et quelqu'un de ce forum
avait proposé cette sub, à coller dans l'éditeur VBA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ça devrait marcher
Merci beaucoup !
c'etait la reponse au probleme :)
"idrevetnom" <idrevetnom@free.fr> a écrit dans le message de
news:Oal8BGafGHA.3900@TK2MSFTNGP05.phx.gbl...
Bonjour, j'ai eu ce problème il y a quelque temps, et quelqu'un de ce
forum
avait proposé cette sub, à coller dans l'éditeur VBA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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
Bonjour, j'ai eu ce problème il y a quelque temps, et quelqu'un de ce forum
avait proposé cette sub, à coller dans l'éditeur VBA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ça devrait marcher
Herdet
Bonjour, Comme tu as créé un nouveau fil au lieu de rester dans celui de la question , je ne sais pas qu'elle est celle-ci ! J'ai déjà vu disparaitre plusieurs fois la ligne des menus d'excel Plus simple, placer le curseur sur la 1ere ligne de pixel tout en haut de l'écran et faire clic droit "Restaurer" Magique et plus simple qu'un VBA ! Robert
"hawk" a écrit dans le message de news: e4upaf$9n6$
Merci beaucoup !
c'etait la reponse au probleme :)
"idrevetnom" a écrit dans le message de news:
Bonjour, j'ai eu ce problème il y a quelque temps, et quelqu'un de ce forum
avait proposé cette sub, à coller dans l'éditeur VBA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ça devrait marcher
Bonjour,
Comme tu as créé un nouveau fil au lieu de rester dans celui de la question
, je ne sais pas qu'elle est celle-ci !
J'ai déjà vu disparaitre plusieurs fois la ligne des menus d'excel
Plus simple, placer le curseur sur la 1ere ligne de pixel tout en haut de
l'écran et faire clic droit "Restaurer"
Magique et plus simple qu'un VBA !
Robert
"hawk" <nospam@toto.com> a écrit dans le message de news:
e4upaf$9n6$1@s1.news.oleane.net...
Merci beaucoup !
c'etait la reponse au probleme :)
"idrevetnom" <idrevetnom@free.fr> a écrit dans le message de
news:Oal8BGafGHA.3900@TK2MSFTNGP05.phx.gbl...
Bonjour, j'ai eu ce problème il y a quelque temps, et quelqu'un de ce
forum
avait proposé cette sub, à coller dans l'éditeur VBA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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
Bonjour, Comme tu as créé un nouveau fil au lieu de rester dans celui de la question , je ne sais pas qu'elle est celle-ci ! J'ai déjà vu disparaitre plusieurs fois la ligne des menus d'excel Plus simple, placer le curseur sur la 1ere ligne de pixel tout en haut de l'écran et faire clic droit "Restaurer" Magique et plus simple qu'un VBA ! Robert
"hawk" a écrit dans le message de news: e4upaf$9n6$
Merci beaucoup !
c'etait la reponse au probleme :)
"idrevetnom" a écrit dans le message de news:
Bonjour, j'ai eu ce problème il y a quelque temps, et quelqu'un de ce forum
avait proposé cette sub, à coller dans l'éditeur VBA
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
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
