Discussion :

[magnan]

Bonjour,
J'ai essayé de mettre en oeuvre la création de menu en suivant le tutoriel https://fring.developpez.com/vba/excel/barremenu/
Complet, je suis arrivé à commencer mettre en œuvre dans un "projet" personnel.

Par contre je butte pour mettre en menu flottant le menu personnalisé.
Comme indiqué j'ai modifié dans le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub barre_menus_perso()
'déclaration des variables
Dim Cbar As CommandBar, Cbut As CommandBarButton
Dim Ctxt As CommandBarComboBox, Cpop1 As CommandBarPopup, Cpop2 As CommandBarPopup
Dim x As Byte

'création de la barre de menus
Set Cbar = CommandBars.Add(Name:="MaBarre", Position:=msoBarTop, Temporary:=True)
Cbar.Protection = msoBarNoMove + msoBarNoCustomize '<-- protection de la barre de menus'insertion sur la barre de menus d'un bouton de commande
Set Cbut = Cbar.Controls.Add(msoControlButton)
With Cbut

en changeant Position:=msoBarTop
par Position:=msoBarFloating

Malgré fermeture d'Excel et relance du classeur, pas de modification le menu personnalisé reste dans la barre de menu d'XL.
De plus le nom du menu reste figé à "Compléments". L'indication "Ma Barre" ne servirait à "rien" au niveau visuel ?

Ou me suis-je raté ?

Merci pour vos réponses.
Niala Lib_Dev Ver6 - menu.xlsm

[laurent_ott]

Bonjour.
Avec les versions Excel récentes, les menus personnalisés sont toujours ajoutés dans le ruban au chapitre "Compléments" (version française).
Pas d'autre possibilité.
J'avoue ne pas comprendre où est ton problème.

[magnan]

Bonjour.
Avec les versions Excel récentes, les menus personnalisés sont toujours ajoutés dans le ruban au chapitre "Compléments" (version française).
Pas d'autre possibilité.
J'avoue ne pas comprendre où est ton problème.

Bonjour,
Le pb : je n'arrive pas à faire en sorte que ce menu soit flottant comme indiqué dans https://fring.developpez.com/vba/excel/barremenu/

Merci pour le suivi.
A+

[laurent_ott]

Depuis Excel 2003 ce n'est plus possible.
Sur quelle version programmes-tu ?

[magnan]

Depuis Excel 2003 ce n'est plus possible.
Sur quelle version programmes-tu ?

Pack Office 2019.
Donc mon pb est solutionné.
Merci.