XL 2016 Menu personnalisé avec bouton macro ?

[arnaudbu]

Bonjour est-ce possible d'avoir un menu personnaliser (à l'emplacement voir capture écran en PJ) avec des boutons qui lanceraient des macros du classeur ? SI oui, un tuto par harsard ?

Merci

 

[eastwick]

Bonjour oui c'est possible avec le bouton office en haut à gauche et options excel... Après vous cochez ou décochez ce que vous voulez afficher. Vous pouvez même fabriquer des boutons.

https://www.youtube.com/results?search_query=personnaliser+barre+excel

 

[arnaudbu]

J'ai trouvé un code (commandbar) qui semble fonctionner mais est-ce possible d'avoir du texte à côté des icônes.

Private Sub Workbook_Open()
    Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton

    'Création de la barre d'outils nommée
    Set CmdBar = Application.CommandBars _
        .Add(Name:="Barre_CP", Position:=msoBarTop, Temporary:=True)

    'Bouton numéro 1
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
        With Bouton
            .FaceId = 70                        'l'image du bouton
            .OnAction = "Macro1"        'la macro exécutée au clic
        End With

 

[patricktoulon]

re
bonjour
oui on peut encore effectivement utiliser les commandbars dynamiques
mais ce sera toujour des petits bouton et pour arranger les alignement ca se fait avaec plusieur commandbars
mais si tu a 4 boutons qui se batent en duels ben tu fera avec sinon lance toi dans le customUI qui est plus adapté a partir de office 2007
donc pour le caption de tes boutons de ta commandbars dynamique ben c'est simple

With Bouton
            .FaceId = 70                        'l'image du bouton
            .OnAction = "Macro1"        'la macro exécutée au clic
           .caption="tartatata"
End With

attention tout de même a bien détruire ta commandbars a la fermeture du fichier
sinon tu va te la taper a vie sur tout tes fichiers

 

[arnaudbu]

Merci. Du coup ma barre s'appelle "Compléments" malgré que je lui ai donné un nom ....

Pour avoir le nom à côté du bouton j'ai mis .Style = msoButtonIconAndCaption

Pour customUI, est-ce plus simple et moins lourd à configurer ? Possible de l'intégrer au fichier aussi ? Des exemples dans un fichier VBA ?


Merci en tout cas !

 

[patricktoulon]

re
customui il faut avoir une connaissance du xml
et oui ça peut s'installer uniquement sur un fichier précis
dans quelque jours je livre dans les ressources un customui creator ou il n'y a aucune connaissance de codage xml requise

si tu est patient quand mon app aura été testé de long en large elle sera dispo dans les ressources
les tests de creation sont finis
là plus d'une cinquantaine de beta testeur on l'ordre de tout faire pour la mettre en défaut quand ces tests retourneront aucune faille je la mettrais en dispo

 

[arnaudbu]

Super merci !

 

[Staple1600]

Bonjour,

[aparté en passant]

là plus d'une cinquantaine de beta testeur on l'ordre de tout faire pour la mettre en défaut quand ces tests retourneront

C'était sur invitation privée ? 😉
(ou il fallait se manifester dans le fil idoine)
[/aparté]

 

[patricktoulon]

bonsoir @Staple1600
non c'est pour la plus part des étudiants et des amis avec qui je suis en contact
mais si tu veux la tester je te fait un fichier que je dépose sur un site je veux pas trop la distribuer pour éviter d'avoir 36 versions qui se baladent
j'ai besoins notamment de retours sur le drag and drop dans le faux treeview
j'en ai pas eu beaucoup ,les coquilles je les ai trouvé tout seul
mais je pense qu'il y en a encore
difficile d’être objectif quand on connait comment ca fonctionne les erreur je les évites peut être naturellement