:-))))))))))) te absolvo car si tu comptes sur le temps.... Mgr T.B.
"j-pascal" a écrit dans le message de news:
... en fait, j'étais dans la "logique" du Plein Ecran, et j'ai assimilé un peu vite "CommandBars" et "Barres..." d'états et de formules ...
(Tu vois à quel point je suis pétri par le remors d'avoir posé une question si stupide ! Il paraît que le temps absoud celui que le remors accompagne ?!)
jp
heu...spontanément, mon fils, et sachant que j'avais perdu de vue et ta question et ma réponse qui remonte à 5 jours, je dirais que les barres dont tu parles (formula, status, alerts) n'appartiennent pas à la collection des commandbars et fais-moi confiance, en matière de bars, j'en connais un rayon, même un cercle dès l'instant où il approche de la forme d'un tonneau Mgr T.B.
"j-pascal" a écrit dans le message de news:
Bonsoir Mgr,
Magnifique ! Merci !
Question subsidiaire (si j'osais) :
Que je les fasse "disparaître" avec : '-- For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB '--
... ok , mais si je mets à True ce même code à la fermeture de mon classeur, ça veut dire que je rends les 125 (?) barres actives ?!! Si Enabled = True signifie accessible, pourquoi certaines barres vont réapparaître spontanément sur ma feuille et pourquoi dois-je ajouter :
'-- With Application .DisplayAlerts = False .DisplayFormulaBar = True .DisplayStatusBar = True End With '--
... pour en faire réapparaître d'autres ?
jp
histoire d'être plus complet que ce crisse de professeur québécois en retraite :-)
For i = 1 to application.commandbars.count cells(i,1) = commandBars(i).name cells(i,2) = commandBars(i).NameLocal cells(i,3) = commandBars(i).Index next i
HTH Mgr T.B.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Comment puis-je connaître les numéros d'index correspondant aux CommandBars suivantes :
With Application .DisplayFormulaBar = False .DisplayStatusBar = False .CommandBars("Standard").Enabled = False .CommandBars("Formatting").Enabled = False .CommandBars("Visual Basic").Enabled = False .CommandBars("Formula Auditing").Enabled = False .CommandBars("worksheet menu bar").Enabled = False End With
Merci !
jp
:-)))))))))))
te absolvo car si tu comptes sur le temps....
Mgr T.B.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.7a007d960c2a1da9.81386@venir.com...
... en fait, j'étais dans la "logique" du Plein Ecran, et j'ai assimilé un
peu vite "CommandBars" et "Barres..." d'états et de formules ...
(Tu vois à quel point je suis pétri par le remors d'avoir posé une
question si stupide ! Il paraît que le temps absoud celui que le remors
accompagne ?!)
jp
heu...spontanément, mon fils, et sachant que j'avais perdu de vue et ta
question et ma réponse qui remonte à 5 jours, je dirais que les barres
dont tu parles (formula, status, alerts) n'appartiennent pas à la
collection des commandbars
et fais-moi confiance, en matière de bars, j'en connais un rayon, même un
cercle dès l'instant où il approche de la forme d'un tonneau
Mgr T.B.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.75627d96feb91dd8.81386@venir.com...
Bonsoir Mgr,
Magnifique ! Merci !
Question subsidiaire (si j'osais) :
Que je les fasse "disparaître" avec :
'--
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
'--
... ok , mais si je mets à True ce même code à la fermeture de mon
classeur, ça veut dire que je rends les 125 (?) barres actives ?!!
Si Enabled = True signifie accessible, pourquoi certaines barres vont
réapparaître spontanément sur ma feuille et pourquoi dois-je ajouter :
'--
With Application
.DisplayAlerts = False
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
'--
... pour en faire réapparaître d'autres ?
jp
histoire d'être plus complet que ce crisse de professeur québécois en
retraite :-)
For i = 1 to application.commandbars.count
cells(i,1) = commandBars(i).name
cells(i,2) = commandBars(i).NameLocal
cells(i,3) = commandBars(i).Index
next i
HTH
Mgr T.B.
"j-pascal" <messages@venir.com> a écrit dans le message de news:
mn.4cc57d96ae6faf5a.81386@venir.com...
Bonsoir,
Comment puis-je connaître les numéros d'index correspondant aux
CommandBars suivantes :
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.CommandBars("Standard").Enabled = False
.CommandBars("Formatting").Enabled = False
.CommandBars("Visual Basic").Enabled = False
.CommandBars("Formula Auditing").Enabled = False
.CommandBars("worksheet menu bar").Enabled = False
End With
:-))))))))))) te absolvo car si tu comptes sur le temps.... Mgr T.B.
"j-pascal" a écrit dans le message de news:
... en fait, j'étais dans la "logique" du Plein Ecran, et j'ai assimilé un peu vite "CommandBars" et "Barres..." d'états et de formules ...
(Tu vois à quel point je suis pétri par le remors d'avoir posé une question si stupide ! Il paraît que le temps absoud celui que le remors accompagne ?!)
jp
heu...spontanément, mon fils, et sachant que j'avais perdu de vue et ta question et ma réponse qui remonte à 5 jours, je dirais que les barres dont tu parles (formula, status, alerts) n'appartiennent pas à la collection des commandbars et fais-moi confiance, en matière de bars, j'en connais un rayon, même un cercle dès l'instant où il approche de la forme d'un tonneau Mgr T.B.
"j-pascal" a écrit dans le message de news:
Bonsoir Mgr,
Magnifique ! Merci !
Question subsidiaire (si j'osais) :
Que je les fasse "disparaître" avec : '-- For Each cmdB In Application.CommandBars cmdB.Enabled = False Next cmdB '--
... ok , mais si je mets à True ce même code à la fermeture de mon classeur, ça veut dire que je rends les 125 (?) barres actives ?!! Si Enabled = True signifie accessible, pourquoi certaines barres vont réapparaître spontanément sur ma feuille et pourquoi dois-je ajouter :
'-- With Application .DisplayAlerts = False .DisplayFormulaBar = True .DisplayStatusBar = True End With '--
... pour en faire réapparaître d'autres ?
jp
histoire d'être plus complet que ce crisse de professeur québécois en retraite :-)
For i = 1 to application.commandbars.count cells(i,1) = commandBars(i).name cells(i,2) = commandBars(i).NameLocal cells(i,3) = commandBars(i).Index next i
HTH Mgr T.B.
"j-pascal" a écrit dans le message de news:
Bonsoir,
Comment puis-je connaître les numéros d'index correspondant aux CommandBars suivantes :
With Application .DisplayFormulaBar = False .DisplayStatusBar = False .CommandBars("Standard").Enabled = False .CommandBars("Formatting").Enabled = False .CommandBars("Visual Basic").Enabled = False .CommandBars("Formula Auditing").Enabled = False .CommandBars("worksheet menu bar").Enabled = False End With
