Ajouter une nouvelle barre d'outil

[David]

Bonjour le forum

J'ai trouvé le code suivant dans le forum

Sub barre()
Dim barreoutil As CommandBar
    Dim Bouton1 As Object, Bouton2 As Object, Bouton3 As Object
  
        On Error Resume Next
        Set barreoutil = Application.CommandBars.Add('barreoutil')
         barreoutil.Position = msoBarFloating
         barreoutil.Protection = msoBarNoChangeVisible
         With barreoutil
         Set Bouton1 = .Controls.Add(msoControlButton)
         With Bouton1
         .Caption = '&Ajouter une ligne'
         .OnAction = 'Rajouter_une_ligne'
         End With

         Set Bouton2 = .Controls.Add(msoControlButton)
         With Bouton2
         .Caption = '&Faire une recherche'
         .OnAction = 'recherchebouton'
         End With
 
        Set Bouton3 = .Controls.Add(msoControlButton)
        With Bouton3
        .Caption = 'Aller &vers'
        .OnAction = 'lanceuserformallervers'
         End With
 
    .Visible = True
    End With
End sub

Les boutons sont vide, il n'y a pas inscrit ce que j'ai marqué après les .Caption .

Est ce que quelqu'un sait pourquoi??

Autre question comment faire pour connaitre les numéro .FaceId (pour avoir les bouton?)


Merci d'avance

David

 

[fredl]

essai plutot ça :
Sub barre()
Dim bo As CommandBar

On Error Resume Next
DeleteBO 'en cas de plantage d'Excel 🙂
Set bo = Application.CommandBars.Add('ma barre d'outil')
bo.Position = msoBarFloating
bo.Left = 100 ' position horizontale par rapport au bord gauche de l'ecran
bo.Top = 210 ' position verticale par rapport à la partie haute de l'ecran


With bo.Controls.Add(msoControlButton)
.Caption = 'Ajouter une ligne '
.Style = msoButtonCaption
.OnAction = 'Rajouter_une_ligne' 'macro
End With
With bo.Controls.Add(msoControlButton)
.Caption = 'Faire une recherche '
.Style = msoButtonCaption
.OnAction = 'recherchebouton' 'macro End With
With bo.Controls.Add(msoControlButton)
.Caption = 'Aller vers... '
.Style = msoButtonCaption
.OnAction = 'lanceuserformallervers' 'macro
End With
bo.Visible = True


End Sub

 

[David]

Merci beaucoup fredl

Une autre question, sait tu créer une barre d'outil dans laquel on peut insérer une textbox (comme pour la barre fonction d'excel)

Merci d'avance.

 

[fredl]

non, désolé...