Bouton Menu

[Julie]

Bonjours à tous les forumeurs

J'ai voulu tester d'ajouer des boutons dans la barres d'outils en haut, celle ou il y a 'FICHIER, EDITION, ect...' dans Excel.
J'ai reussi mais les boutons restent enfoncés, il faut cliquer quelque part pour les desactivé. Quelqu'un conaitrait il les proprieté pour un bouton simple?

Voici mon code :

////Pour creer les boutons //
Dim monmenu As CommandBarPopup
Dim monmenu2 As CommandBarPopup
Dim monmenu3 As CommandBarPopup

Set monmenu = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup)
Set monmenu2 = Application.CommandBars(1).Controls.Add(Type:=msoControlButton)
Set monmenu3 = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup)

monmenu.Caption = 'Ajouter une action'
monmenu.OnAction = 'Thisworkbook.navigateurgo'
monmenu2.Caption = 'Atteindre la derniere ligne'
monmenu2.OnAction = 'Thisworkbook.derligne'
monmenu3.Caption = 'Remettre les filtres à 0'
monmenu3.OnAction = 'Thisworkbook.filtre'




////Pour l'effacer ///
On Error Resume Next
Application.CommandBars(1).Controls('Ajouter une action').Delete
Application.CommandBars(1).Controls('Atteindre la derniere ligne').Delete
Application.CommandBars(1).Controls('Remettre les filtres à 0').Delete

Merci d'avance

 

[Davidc57]

Bonsoir Julie,

Celle ci fonctionne, je l'utilise moi-même.

A bientôt

David

--------------------


Sub auto_open()

For Each bar In Application.MenuBars(xlWorksheet).Menus
If bar.Caption = 'Nouvelle Barre' Then
bar.Delete
End If
Next

Set mymenubar = CommandBars.ActiveMenuBar
Set newmenu = mymenubar.Controls.Add(Type:=msoControlPopup, temporary:=True)
newmenu.Caption = 'Nouvelle Barre'


Set MenuItem = newmenu.Controls.Add(Type:=msoControlButton)
With MenuItem
.Caption = 'Nouveau Client'
.OnAction = Thisworkbook.Name & '!NouveauClient'
.FaceId = 24
End With

Set MenuItem = newmenu.Controls.Add(Type:=msoControlButton)
With MenuItem
.Caption = 'Modifier Client'
'.OnAction = Thisworkbook.Name & '!ModifierClient'
.FaceId = 19
End With

End Sub

 

[Dan]

Bonsoir à tous,

David, pas conseillé du tout d'utiliser le code Auto-open car même si cela fonctionne encore aujourdhui, il vaut mieux utiliser les macros évenementielles. Il ya déjà quelques temps que Bill dit qu'il va supprimer ces instructions...
Dans tous les cas ne pas oublier de faire une macro qui élimine les barres créées à l'ouverture du fichier !

Julie, pas compris. Ce que tu veux faire c'est ajouter une barre avec des boutons ou un menu déroulant dans le menu 'fichier, edition, ... ?

Verifie toutefois si tu n'es pas resté en mode création en VBA.

Au besoin mets un petit fichier ici avec données bidons.

 

[Julie]

Merci Dan et david de m'avoir repondu

En fait, ce que je voudrais faire c'est ne pas creer une barre flottante mais des boutons dans la barre de menu a droite du bouton '?'

en gros dans excel j'aurais

Ficher Edititon ..... ? Mobouton Monbouton2

et les boutons executerais la marco directement
Ma macro actuel le fait bien mais les boutons reste enfoncé comme si c'etait un menu deroulant

Si c'est toujours pas assez claire,je vous enverrais un fichier

Merci de votre aide

 

[Dan]

Re Julie,

Ben c'est normal cela, tu ne peux pas aller mettre des boutons à coté du '?'. Là tu peux y ajouter un menu déroulant tel que celui que tu as dans fichier, edition etc ...

Si tu as besoin de boutons, il faut créer une barre perso avec les boutons personnalisés qui viendra s'ajouter aux deux barres d'outils que tu possèdes en dessous de la barre de menu fichier, edition etc....