XL 2016 Menu personnalisé avec bouton macro ?

arnaudbu

XLDnaute Occasionnel
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
 

Pièces jointes

  • ribbon.JPG
    ribbon.JPG
    30.8 KB · Affichages: 25

arnaudbu

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

VB:
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

XLDnaute Barbatruc
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


VB:
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

patricktoulon

XLDnaute Barbatruc
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
 

Discussions similaires

  • Question
Microsoft 365 Excel365
Réponses
2
Affichages
431
Réponses
24
Affichages
1 K

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
315 111
Messages
2 116 340
Membres
112 721
dernier inscrit
Ulricn