Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Numéros d'index des CommandBars

Numéros d'index des CommandBars

11 réponses
Avatar
j-pascal
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
Signaler un problème avec ce contenu

10 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
1 2
Avatar
garnote
Bonsoir,

Un exemple à essayer :
n = Application.CommandBars("Formatting").Index

Serge


"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




Avatar
Mgr T. Banni
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




Avatar
LSteph
plusieurs rhums mènent au chemin...
;o))


Mgr T. Banni a écrit :
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








Avatar
j-pascal
Bonsoir Serge,

Merci pour ta proposition,

jp

Bonsoir,

Un exemple à essayer :
n = Application.CommandBars("Formatting").Index

Serge


"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






Avatar
j-pascal
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






Avatar
Mgr T. Banni
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










Avatar
Modeste
Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :

Question subsidiaire (si j'osais) :

Que je les fasse "disparaître" avec :
'--
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
'--



ne pas confondre active et visible

;o)))
For Each cmdB In Application.CommandBars
cmdB.Visible = True
cmdB.Enabled = True
Next cmdB

tu va avoir un écran comme celui de Mgr !!!!!
;o)))
Avatar
j-pascal
Bonjour Mgr,

Désolé pour cette question stupide ;-(

(Que je regrette néanmoins qu'à moitié au vu de ta réponse, on ne peut
guère plus humoristique !)

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












Avatar
j-pascal
Bonjour Modeste,

Merci. Je crois que c'est effectivement (sans avoir su le formuler
clairement) la question que je me posais !

Penses-tu que je peux faire l'expérience, sans mettre "définitivement"
le souk dans Excel et que je n'aurais pas de surprise en remettant le
tout à "False" ? Je suis tenté, mais je ne fais rien avant ton feu vert
(éventuel) ...

@+

jp

Bonsour® j-pascal avec ferveur ;o))) vous nous disiez :

Question subsidiaire (si j'osais) :

Que je les fasse "disparaître" avec :
'--
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
'--



ne pas confondre active et visible

;o)))
For Each cmdB In Application.CommandBars
cmdB.Visible = True
cmdB.Enabled = True
Next cmdB

tu va avoir un écran comme celui de Mgr !!!!!
;o)))


Avatar
j-pascal
... 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












1 2