• Initiateur de la discussion Initiateur de la discussion gh4
  • 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 !

gh4

XLDnaute Occasionnel
bjr a tous
je suis en train de construire ma barre d'outils
1)Je n'arrive pas à ecrire un texte sur un bouton de cette barre
2) est il possible d'avoir un espace entre de deux boutons de la barre si oui comment

Merci.

.OnAction = "macro" 'commande de la macro
.TooltipText = "xxxx" 'texte au passage souris
.Style = msoButtonIcon
.Width = 100 'largeur
.Height = 20 'longueur
.FaceId = 640 'image
 
Re : texte sur bouton

Bonjour,

Code:
Sub auto_open()
   Dim barre As CommandBar
   Dim bouton As CommandBarControl
   On Error Resume Next
   Set barre = CommandBars.Add(Name:="BarreBoutons")
   barre.Visible = True

   Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)

   bouton.Style = msoButtonIconAndCaption
   bouton.TooltipText = "xxx"
   bouton.FaceId = 121
   bouton.OnAction = "Macro1"
   bouton.Caption = "Macro1"

   Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
   bouton.BeginGroup = True
   bouton.Style = msoButtonCaption
   'bouton.Width = 100
   bouton.OnAction = "Macro2"
   bouton.Caption = "Macro2"
End Sub

Sub auto_close()
  On Error Resume Next
  CommandBars("BarreBoutons").Delete
End Sub

JB
 
Re : texte sur bouton

je voudrais qu'entre le bouton macro1 et macro 2 un espace de la dimension d'une certaine dimension existe afin que je repartisse sur toutesla longueur de ma feuille ma barre d'outils perso

Set cc = CB.Controls.Add(msoControlButton, , , , True)
With cc
.BeginGroup = True
.Style = msoButtonIconAndCaption 'msoButtonIcon
.OnAction = "macro1" 'nom de la macro
.Caption = "macro1" 'nom du bouton
.TooltipText = "xxxx" 'texte au passage souris

.Width = 100 'largeur
.Height = 20 'longueur
.FaceId = 640 'image
End With

Set cc = CB.Controls.Add(msoControlButton, , , , True)
With cc
.BeginGroup = True
.Style = msoButtonIconAndCaption
.OnAction = "macro2"
.Caption = "macro2"
.Width = 100 'largeur
.Height = 20 'longueur

End With
 
- 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
3
Affichages
491
Réponses
2
Affichages
1 K
Réponses
1
Affichages
1 K
Réponses
2
Affichages
2 K
Retour