OVH Cloud OVH Cloud

Vérifier si un bouton n'existe pas avant de le créer dans la barre d'outil

5 réponses
Avatar
Fred64
Bonjour tout le monde,
J'ai une barre d'outil qui se créait automatiquement en VBA.
Je souhaiterai, avant de créer le bouton (avec un nom déterminé), vérifier
si le bouton n'existe pas déjà (nom identique).
J'espère avoir été clair.
Merci d'avance
Fred

5 réponses

Avatar
papou
Bonjour
Avec quelque chose comme ça :
Dim ctr As CommandBarControl
For Each ctr In Application.CommandBars(1).Controls
If ctr.Caption = "&Mon Menu" And ctr.Visible = True Then
ctr.Delete
End If
Next ctr

Cordialement
Pascal

"Fred64" a écrit dans le message de news:

Bonjour tout le monde,
J'ai une barre d'outil qui se créait automatiquement en VBA.
Je souhaiterai, avant de créer le bouton (avec un nom déterminé), vérifier
si le bouton n'existe pas déjà (nom identique).
J'espère avoir été clair.
Merci d'avance
Fred



Avatar
Fred64
Merci Pascal, je testerai ca ce soir
A bientot
Fred
"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
%
Bonjour
Avec quelque chose comme ça :
Dim ctr As CommandBarControl
For Each ctr In Application.CommandBars(1).Controls
If ctr.Caption = "&Mon Menu" And ctr.Visible = True Then
ctr.Delete
End If
Next ctr

Cordialement
Pascal

"Fred64" a écrit dans le message de news:

Bonjour tout le monde,
J'ai une barre d'outil qui se créait automatiquement en VBA.
Je souhaiterai, avant de créer le bouton (avec un nom déterminé),
vérifier si le bouton n'existe pas déjà (nom identique).
J'espère avoir été clair.
Merci d'avance
Fred







Avatar
jps
bonjour fred64
pour éviter ce genre de couac, mes maîtres m'ont appris à d'abord annuler la
BO en question avant de lancer la proc qui la crée automatiquement...au cas
zoù
jps

"Fred64" a écrit dans le message de news:
e$
Merci Pascal, je testerai ca ce soir
A bientot
Fred
"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
%
Bonjour
Avec quelque chose comme ça :
Dim ctr As CommandBarControl
For Each ctr In Application.CommandBars(1).Controls
If ctr.Caption = "&Mon Menu" And ctr.Visible = True Then
ctr.Delete
End If
Next ctr

Cordialement
Pascal

"Fred64" a écrit dans le message de news:

Bonjour tout le monde,
J'ai une barre d'outil qui se créait automatiquement en VBA.
Je souhaiterai, avant de créer le bouton (avec un nom déterminé),
vérifier si le bouton n'existe pas déjà (nom identique).
J'espère avoir été clair.
Merci d'avance
Fred











Avatar
Modeste
Bonsour® jps avec ferveur ;o))) vous nous disiez :
pour éviter ce genre de couac, mes maîtres m'ont appris à d'abord annuler
la
BO en question avant de lancer la proc qui la crée automatiquement...au
cas zoù


j'ai toujours eu des doutes concernant tes talents de musiciens...
ils étaient donc fondés, maintenant que tu parles de couacs au kazoo
http://fr.wikipedia.org/wiki/Kazoo
http://www.latoilescoute.net/echanger/bricoler/petites_fabrications/instruments/kazoo/
http://jeanluc.matte.free.fr/articles/typologie/kazoo.htm
notament je t'ai reconnu le 3ème en haut en partant de la gauche... non ? :
http://cjoint.com/?fwlSb8VpIr

attention aux coups de bigophone (nom de son inventeur)
--
--
@+
;o)))

Avatar
Fred64
Salut Pascal,
J'ai essayé ce que tu m'as donné, mais ca ne marche pas car ce n'est pas des
boutons mais des popup.
En fait je dois vérifier si la barre d'outil(XX), qui contient un
popup("Choisir un savoir"), qui lui contient plusieurs popup. Ce sont eux
qui doivent être vérifiés.
Puis chaque popup recevra des boutons.
Je n'arrive pas à vérifier ses popup.
Merci d'avance
fred
"papou" <cestpasbon@çanonplus> a écrit dans le message de news:
%
Bonjour
Avec quelque chose comme ça :
Dim ctr As CommandBarControl
For Each ctr In Application.CommandBars(1).Controls
If ctr.Caption = "&Mon Menu" And ctr.Visible = True Then
ctr.Delete
End If
Next ctr

Cordialement
Pascal

"Fred64" a écrit dans le message de news:

Bonjour tout le monde,
J'ai une barre d'outil qui se créait automatiquement en VBA.
Je souhaiterai, avant de créer le bouton (avec un nom déterminé),
vérifier si le bouton n'existe pas déjà (nom identique).
J'espère avoir été clair.
Merci d'avance
Fred