Pour une raison que j'ignore, ma barre de menu de feuille
de calcul est disparue et je suis incapable de la faire réapparaître !
Vous avez une ou deux idées, please ?
Sub essai()
Application.CommandBars(1).Visible = True
End Sub
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
tu as touché au fichier du ChrisV !!!!!! http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
-- -- @+ ;o)))
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
tu as touché au fichier du ChrisV !!!!!!
http://www.cijoint.fr/cij55688763712933.xls
fallait pas essayer de bricoler .... Na....(*)
;o)))
macro imperativement à mettre de toute urgence dans ton perso.xls
tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : per066@zaza
le @ devra etre saisi a l'aide du pavé numérique Alt+064
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
tu as touché au fichier du ChrisV !!!!!! http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
-- -- @+ ;o)))
cousinhub
Bonsoir, Modeste Pas forcément Alt+064, AltGr+8 fonctionne également J'ai eu le même symptôme, plus quelques autres, pas élégant de mettre des fichiers de cet acabit en téléchargement libre, sans prévenir suffisamment, et surtout avec les suites radicales....... Bonne soirée PS, 3 mn pour le déplomber, mais pas été assez prévoyant.....
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
tu as touché au fichier du ChrisV !!!!!! http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
Bonsoir, Modeste
Pas forcément Alt+064, AltGr+8 fonctionne également
J'ai eu le même symptôme, plus quelques autres, pas élégant de mettre
des fichiers de cet acabit en téléchargement libre, sans prévenir
suffisamment, et surtout avec les suites radicales.......
Bonne soirée
PS, 3 mn pour le déplomber, mais pas été assez prévoyant.....
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
tu as touché au fichier du ChrisV !!!!!!
http://www.cijoint.fr/cij55688763712933.xls
fallait pas essayer de bricoler .... Na....(*)
;o)))
macro imperativement à mettre de toute urgence dans ton perso.xls
tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : per066@zaza
le @ devra etre saisi a l'aide du pavé numérique Alt+064
Bonsoir, Modeste Pas forcément Alt+064, AltGr+8 fonctionne également J'ai eu le même symptôme, plus quelques autres, pas élégant de mettre des fichiers de cet acabit en téléchargement libre, sans prévenir suffisamment, et surtout avec les suites radicales....... Bonne soirée PS, 3 mn pour le déplomber, mais pas été assez prévoyant.....
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
tu as touché au fichier du ChrisV !!!!!! http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
garnote
tu as touché au fichier du ChrisV !!!!!! Oui et d'ailleurs quand j'ai voulu rendre visibles
toutes les barres de CommandBars, ledit fichier s'est ouvert et tout était bloqué.
Heureusement Sesame s'est bien comporté et je le conserve précieusement.
Serge
"Modeste" a écrit dans le message de news: %
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
-- -- @+ ;o)))
tu as touché au fichier du ChrisV !!!!!!
Oui et d'ailleurs quand j'ai voulu rendre visibles
toutes les barres de CommandBars, ledit fichier
s'est ouvert et tout était bloqué.
Heureusement Sesame s'est bien comporté et
je le conserve précieusement.
Serge
"Modeste" <nomail@nomail.net> a écrit dans le message de news: %23qDuPbBlHHA.3264@TK2MSFTNGP04.phx.gbl...
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
http://www.cijoint.fr/cij55688763712933.xls
fallait pas essayer de bricoler .... Na....(*)
;o)))
macro imperativement à mettre de toute urgence dans ton perso.xls
tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : per066@zaza
le @ devra etre saisi a l'aide du pavé numérique Alt+064
tu as touché au fichier du ChrisV !!!!!! Oui et d'ailleurs quand j'ai voulu rendre visibles
toutes les barres de CommandBars, ledit fichier s'est ouvert et tout était bloqué.
Heureusement Sesame s'est bien comporté et je le conserve précieusement.
Serge
"Modeste" a écrit dans le message de news: %
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
-- -- @+ ;o)))
garnote
tu as touché au fichier du ChrisV !!!!!! Oui et d'ailleurs quand j'ai voulu rendre visibles
toutes les barres de CommandBars, ledit fichier s'est ouvert et tout était bloqué.
Heureusement Sesame s'est bien comporté et je le conserve précieusement.
Serge
"Modeste" a écrit dans le message de news: %
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
-- -- @+ ;o)))
tu as touché au fichier du ChrisV !!!!!!
Oui et d'ailleurs quand j'ai voulu rendre visibles
toutes les barres de CommandBars, ledit fichier
s'est ouvert et tout était bloqué.
Heureusement Sesame s'est bien comporté et
je le conserve précieusement.
Serge
"Modeste" <nomail@nomail.net> a écrit dans le message de news: %23qDuPbBlHHA.3264@TK2MSFTNGP04.phx.gbl...
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
http://www.cijoint.fr/cij55688763712933.xls
fallait pas essayer de bricoler .... Na....(*)
;o)))
macro imperativement à mettre de toute urgence dans ton perso.xls
tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : per066@zaza
le @ devra etre saisi a l'aide du pavé numérique Alt+064
tu as touché au fichier du ChrisV !!!!!! Oui et d'ailleurs quand j'ai voulu rendre visibles
toutes les barres de CommandBars, ledit fichier s'est ouvert et tout était bloqué.
Heureusement Sesame s'est bien comporté et je le conserve précieusement.
Serge
"Modeste" a écrit dans le message de news: %
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
-- -- @+ ;o)))
Modeste
Bonsour® cousinhub avec ferveur ;o))) vous nous disiez :
pas élégant de mettre des fichiers de cet acabit en téléchargement libre, sans prévenir suffisamment, et surtout avec les suites radicales.......
c'est vrai qu'il aurait pu mettre un avertissement.... ;o))) comme dirait JPS : http://minilien.com/?gAvXhwsoyg pour l'utilisateur Lambda celui-ci va dire que c'est une macro à la "chiche ma eu" ???
mais si tu l'as déplombé, tu y verra que le code y est toujours interessant connaissant le Christophe ;o)))
-- -- @+ ;o)))
Bonsour® cousinhub avec ferveur ;o))) vous nous disiez :
pas élégant de mettre
des fichiers de cet acabit en téléchargement libre, sans prévenir
suffisamment, et surtout avec les suites radicales.......
c'est vrai qu'il aurait pu mettre un avertissement.... ;o)))
comme dirait JPS : http://minilien.com/?gAvXhwsoyg
pour l'utilisateur Lambda celui-ci va dire que c'est une macro à la "chiche ma
eu" ???
mais si tu l'as déplombé, tu y verra que le code y est toujours interessant
connaissant le Christophe ;o)))
Bonsour® cousinhub avec ferveur ;o))) vous nous disiez :
pas élégant de mettre des fichiers de cet acabit en téléchargement libre, sans prévenir suffisamment, et surtout avec les suites radicales.......
c'est vrai qu'il aurait pu mettre un avertissement.... ;o))) comme dirait JPS : http://minilien.com/?gAvXhwsoyg pour l'utilisateur Lambda celui-ci va dire que c'est une macro à la "chiche ma eu" ???
mais si tu l'as déplombé, tu y verra que le code y est toujours interessant connaissant le Christophe ;o)))
-- -- @+ ;o)))
cousinhub
Re-, Effectivement, le code, très intéressant, copié dans mes fichiers "*.txt". Quant à Jps, à cette date, je n'étais pas encore féru de ce site. Pour tout dire, je savais à peine qu'Excel faisait autre chose que des tableaux avec des bordures, avec des cellules tout plein de couleurs, et qu'en plus, ça calculait A1 + B1. Dommage, ses interventions me font toujours rire, et d'avoir loupé tout ça, je m'en veux un peu.... Amicalement
Bonsour® cousinhub avec ferveur ;o))) vous nous disiez :
pas élégant de mettre des fichiers de cet acabit en téléchargement libre, sans prévenir suffisamment, et surtout avec les suites radicales.......
c'est vrai qu'il aurait pu mettre un avertissement.... ;o))) comme dirait JPS : http://minilien.com/?gAvXhwsoyg pour l'utilisateur Lambda celui-ci va dire que c'est une macro à la "chiche ma eu" ???
mais si tu l'as déplombé, tu y verra que le code y est toujours interessant connaissant le Christophe ;o)))
Re-,
Effectivement, le code, très intéressant, copié dans mes fichiers "*.txt".
Quant à Jps, à cette date, je n'étais pas encore féru de ce site. Pour
tout dire, je savais à peine qu'Excel faisait autre chose que des
tableaux avec des bordures, avec des cellules tout plein de couleurs, et
qu'en plus, ça calculait A1 + B1.
Dommage, ses interventions me font toujours rire, et d'avoir loupé tout
ça, je m'en veux un peu....
Amicalement
Bonsour® cousinhub avec ferveur ;o))) vous nous disiez :
pas élégant de mettre
des fichiers de cet acabit en téléchargement libre, sans prévenir
suffisamment, et surtout avec les suites radicales.......
c'est vrai qu'il aurait pu mettre un avertissement.... ;o)))
comme dirait JPS : http://minilien.com/?gAvXhwsoyg
pour l'utilisateur Lambda celui-ci va dire que c'est une macro à la "chiche ma
eu" ???
mais si tu l'as déplombé, tu y verra que le code y est toujours interessant
connaissant le Christophe ;o)))
Re-, Effectivement, le code, très intéressant, copié dans mes fichiers "*.txt". Quant à Jps, à cette date, je n'étais pas encore féru de ce site. Pour tout dire, je savais à peine qu'Excel faisait autre chose que des tableaux avec des bordures, avec des cellules tout plein de couleurs, et qu'en plus, ça calculait A1 + B1. Dommage, ses interventions me font toujours rire, et d'avoir loupé tout ça, je m'en veux un peu.... Amicalement
Bonsour® cousinhub avec ferveur ;o))) vous nous disiez :
pas élégant de mettre des fichiers de cet acabit en téléchargement libre, sans prévenir suffisamment, et surtout avec les suites radicales.......
c'est vrai qu'il aurait pu mettre un avertissement.... ;o))) comme dirait JPS : http://minilien.com/?gAvXhwsoyg pour l'utilisateur Lambda celui-ci va dire que c'est une macro à la "chiche ma eu" ???
mais si tu l'as déplombé, tu y verra que le code y est toujours interessant connaissant le Christophe ;o)))
Clochard
bonsoir,
La mienne aussi a disparue... au secours... dois-je ré-installer Excel 2003 -- Clochard Aimerais bien savoir.... Merci!
tu as touché au fichier du ChrisV !!!!!! Oui et d'ailleurs quand j'ai voulu rendre visibles
toutes les barres de CommandBars, ledit fichier s'est ouvert et tout était bloqué.
Heureusement Sesame s'est bien comporté et je le conserve précieusement.
Serge
"Modeste" a écrit dans le message de news: %
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
-- -- @+ ;o)))
bonsoir,
La mienne aussi a disparue... au secours... dois-je ré-installer Excel 2003
--
Clochard
Aimerais bien savoir....
Merci!
tu as touché au fichier du ChrisV !!!!!!
Oui et d'ailleurs quand j'ai voulu rendre visibles
toutes les barres de CommandBars, ledit fichier
s'est ouvert et tout était bloqué.
Heureusement Sesame s'est bien comporté et
je le conserve précieusement.
Serge
"Modeste" <nomail@nomail.net> a écrit dans le message de news: %23qDuPbBlHHA.3264@TK2MSFTNGP04.phx.gbl...
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
http://www.cijoint.fr/cij55688763712933.xls
fallait pas essayer de bricoler .... Na....(*)
;o)))
macro imperativement à mettre de toute urgence dans ton perso.xls
tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : per066@zaza
le @ devra etre saisi a l'aide du pavé numérique Alt+064
La mienne aussi a disparue... au secours... dois-je ré-installer Excel 2003 -- Clochard Aimerais bien savoir.... Merci!
tu as touché au fichier du ChrisV !!!!!! Oui et d'ailleurs quand j'ai voulu rendre visibles
toutes les barres de CommandBars, ledit fichier s'est ouvert et tout était bloqué.
Heureusement Sesame s'est bien comporté et je le conserve précieusement.
Serge
"Modeste" a écrit dans le message de news: %
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
;o))) macro imperativement à mettre de toute urgence dans ton perso.xls tu pourra même y associer un raccourci perso
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
(*) un petit coup de pouce qui pourra etre utile : le @ devra etre saisi a l'aide du pavé numérique Alt+064
-- -- @+ ;o)))
ChrisV
fallait pas essayer de bricoler .... Na....(*)
:-)
ChrisV
"Modeste" a écrit dans le message de news: %
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
tu as touché au fichier du ChrisV !!!!!! http://www.cijoint.fr/cij55688763712933.xls fallait pas essayer de bricoler .... Na....(*)
fallait pas essayer de bricoler .... Na....(*)
:-)
ChrisV
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
%23qDuPbBlHHA.3264@TK2MSFTNGP04.phx.gbl...
Bonsour® garnote avec ferveur ;o))) vous nous disiez :
tu as touché au fichier du ChrisV !!!!!!
http://www.cijoint.fr/cij55688763712933.xls
fallait pas essayer de bricoler .... Na....(*)