XL 2019 Créer bouton dans la barre d'outils

  • Initiateur de la discussion Initiateur de la discussion team18fr
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

team18fr

XLDnaute Occasionnel
Bonjour je cherche comment créer plusieurs boutons dans la barre d'outils soit dans l'onglet complément ou si possible dans un nouvel onglet mais seulement pour un classeur spécifique. J'arrive à en créer via Excel directement mais ils restent sur tout mes classeurs et j'ai aussi trouvé comment faire pour un seul classeur mais c'est trop petit.
Avez-vous une solution ?

VB:
Private Sub Workbook_Open()
    Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
 
    'Création de la barre d'outils nommée 'MaBarrePerso'
    Set CmdBar = Application.CommandBars _
        .Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)
 
    'Ajout de 3 boutons dans la barre d'outils
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        'Définit "l'image" qui va s'afficher sur le bouton
        .FaceId = 133
        'Définit quelle macro est associée au bouton.
        'Cette macro sera lancée à chaque fois que vous cliquez sur le bouton.
        .OnAction = "Macro1"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 134
        .OnAction = "Macro2"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
         .FaceId = 135
        .OnAction = "Macro3"
    End With
 
    CmdBar.Visible = True
End Sub
 
bonsoir
@eastwick tu a tout faux
l'expression est claire
application.commandbars.add ajoute donc une commandbar dans l'application et non dans un classeur précis dans un onglet complement

il te faut la détruire a la fermeture du classeur

on ajoute des onglets dans le ruban dans un classeur précis seulement avec customUI a partir de 2007
et justement pour ce qui est de la taille des boutons (trop petits avec commandbar.add) on peut attribuer l'attribut large au controls du nouvel onglet seulement avec customUI

et cela depuis office 2007
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
1 K
Réponses
2
Affichages
2 K
Retour