Test de l'existence d'une commandbar

Pour l'existence, il suffit de déclarer une variable et de gérer l'erreur si
la commanbar n'existe pas

on error resume next
set Mybar=application.commandbars("tutu")
if err.number<>0 (ou If Mybar Is Nothing) then
'faire quelque chose

Pour la barre visible, simplement tester

Application.commandbars("toto").visible et controler si revient Vrai ou Faux

A+

Bonjour,
Comment puis-tester l'existence ou la visibilité d'une barre de commande?
--
René Delcourt

Bonjour

Pour connaître la liste des nos de tes barres de commande

Sub barrecmd()
Dim Ctr As CommandBarControl
Dim i As Long
Feuil1.Activate
i = 0
For j = 1 To 200
On Error Resume Next
i = i + 1
If CommandBars(j).NameLocal = "" Then GoTo suite

ActiveSheet.Cells(i, 1) = j
ActiveSheet.Cells(i, 2) = CommandBars(j).NameLocal
'Name pour l'anglais et NameLocal traduction de ton pays
suite:
Next
End Sub


Salutations

Gilbert

"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news: D4B5F791-0F6A-445E-8861-9C5D159B1B85@microsoft.com...

Pour l'existence, il suffit de déclarer une variable et de gérer l'erreur
si
la commanbar n'existe pas

on error resume next
set Mybar=application.commandbars("tutu")
if err.number<>0 (ou If Mybar Is Nothing) then
'faire quelque chose

Pour la barre visible, simplement tester

Application.commandbars("toto").visible et controler si revient Vrai ou
Faux

A+

Bonjour,
Comment puis-tester l'existence ou la visibilité d'une barre de commande?
--
René Delcourt

Bonjour René,

Pour la visibilité d'une barre

'------------------------
Sub BarreVisible()

On Error Resume Next
MsgBox Application.CommandBars("Standard").Visible
On Error GoTo 0

End Sub
'------------------------

Attention, une barre peut exister et ne pas être visible!


Salutations!


"René Delcourt" <rdelcourt@Bluewin.ch> a écrit dans le message de news: 97C200EE-0B0E-48F9-B97A-FFE9F95F1F39@microsoft.com...
Bonjour,
Comment puis-tester l'existence ou la visibilité d'une barre de commande?
--
René Delcourt