lors de l'ouverture d'Excel, aucune barre d'outils apparaît, comment faire pour les récupérer ?
nougat
merci, mais c'est plus compliqué, car je n'ai plus du tout de possibilité, c'est à dire à part la barre excel où sont les trois icones "mettre en icone, réduire et fermer" il n'y a que le classeur. Plus de possiblité, même avec le bouton droit de la souris de faire quoi que ce soit pour récupérer la barre d'outils.. etc..
lors de l'ouverture d'Excel, aucune barre d'outils apparaît, comment faire pour les récupérer ?
merci, mais c'est plus compliqué, car je n'ai plus du tout de possibilité,
c'est à dire à part la barre excel où sont les trois icones "mettre en icone,
réduire et fermer" il n'y a que le classeur. Plus de possiblité, même avec le
bouton droit de la souris de faire quoi que ce soit pour récupérer la barre
d'outils.. etc..
lors de l'ouverture d'Excel, aucune barre d'outils apparaît, comment faire
pour les récupérer ?
merci, mais c'est plus compliqué, car je n'ai plus du tout de possibilité, c'est à dire à part la barre excel où sont les trois icones "mettre en icone, réduire et fermer" il n'y a que le classeur. Plus de possiblité, même avec le bouton droit de la souris de faire quoi que ce soit pour récupérer la barre d'outils.. etc..
lors de l'ouverture d'Excel, aucune barre d'outils apparaît, comment faire pour les récupérer ?
J
Bonjour
aucune barre d'outils apparaît, comment les récupérer ?
Voici le couteau suisse made by Geedee, à copier dans un module standard, accessible par Alt-F11 Bonne récupération J@@
Sub Sesame() 'Geedee pour tt récupérer 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
aucune barre d'outils apparaît, comment les récupérer ?
Voici le couteau suisse made by Geedee, à copier dans un module
standard, accessible par Alt-F11
Bonne récupération
J@@
Sub Sesame()
'Geedee pour tt récupérer
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
aucune barre d'outils apparaît, comment les récupérer ?
Voici le couteau suisse made by Geedee, à copier dans un module standard, accessible par Alt-F11 Bonne récupération J@@
Sub Sesame() 'Geedee pour tt récupérer 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
