XL 2016 Menu personnalisé avec bouton macro ?

eastwick

XLDnaute Accro

• 5 Avril 2021

• #2

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

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 5 Avril 2021

• #3

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Avril 2021

• #4

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

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 5 Avril 2021

• #5

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 !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Avril 2021

• #6

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

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 5 Avril 2021

• #7

Super merci !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #8

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Avril 2021

• #9

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

 

Vote positif 0 Vote négatif