Ajouter des boutons dans les commandbar dans le VBE (épisode 2 la Standard et barres de menus) 1.3

Dim bar As CommandBar
Set bar = Application.VBE.CommandBars("Standard")

Sub resetBar()
    Application.VBE.CommandBars("Standard").Reset
End Sub

6. Module standard – création du menu


Option Explicit
'cette méthode peut être appliquer exactement de la même manière  à la commandbars "Barre de menus"en dessous la barre standard

Public cbevent As CommanbarsVbeEvent

Sub Add_Menu_Cmb_Standard()
    Dim Bar
    Dim bouton As CommandBarButton
    Dim sep As CommandBarButton
   Dim popup As CommandBarControl
  
    Set cbevent = New CommanbarsVbeEvent ' on crée une seule instance puisque l'on gère 4 events dans la classe
    
    Set Bar = Application.VBE.CommandBars("standard")
    'Set Bar = Application.VBE.CommandBars("Barre de menus")
    Bar.Reset
    
    With Bar
        'Comme les separateurs n'existent pas dans les commandbars fixe( VBE  et Ruban)
        'on place un bouton avec un symbole  jouant le role de separateur
        'facultatif!!
        Set sep = .Controls.Add(Type:=msoControlButton)
        sep.Caption = "|"
        sep.Style = msoButtonCaption
        
        'Ajoute un menu déroulant
        Set popup = .Controls.Add(msoControlPopup)
        popup.Caption = "Mon menu" 'Le texte du menu déroulantc'est un controls de type MsoControlPopup
        
        'on ajoute les bouton dans le menu deroulant
        
        'premier bouton
        Set bouton = popup.Controls.Add(msoControlButton)
        bouton.Caption = "Action 1" 'texte du bouton
        bouton.Style = msoButtonIconAndCaption ' style de bouton voir commentaire en haut du module l'enumeration des style
        'bouton.Visible = True
        bouton.FaceId = 5687 'l'icone n'est pas obligatoire
        'ici on instancie une gestion du click donc une instance de classe  et on la GroupeClasseionne pour qu'elle dur pendant toute la durée ou le fichier est ouvert
        Set cbevent.BtnEvents = Application.VBE.Events.CommandBarEvents(bouton)
        Set cbevent.CbmControl1 = bouton 'l'object CbmControl1 de la classe est le bouton(pratique si on utilise le tag pour transporter des paramètres
        
        '2d bouton
        Set bouton = popup.Controls.Add(msoControlButton)
        bouton.Caption = "Action2"
        bouton.Style = msoButtonIconAndCaption
        'bouton.Visible = True
        bouton.FaceId = 5687 'l'icone n'est pas obligatoire
        'ici on instancie une gestion du click donc une instance de classe  et on la GroupeClasseionne pour qu'elle dur pendant toute la durée ou le fichier est ouvert
        Set cbevent.BtnEvents2 = Application.VBE.Events.CommandBarEvents(bouton)
        Set cbevent.CbmControl2 = bouton
        
        Set bouton = .Controls.Add(msoControlButton)
        bouton.Caption = "BoutonX1"
        bouton.Style = msoButtonIconAndCaption
        'bouton.Visible = True
        bouton.FaceId = 5687 'l'icone n'est pas obligatoire
        'ici on instancie une gestion du click donc une instance de classe  et on la GroupeClasseionne pour qu'elle dur pendant toute la durée ou le fichier est ouvert
        Set cbevent.BtnEvents3 = Application.VBE.Events.CommandBarEvents(bouton)
        Set cbevent.CbmControl3 = bouton 'l'object CbmControl2 de la classe est le bouton(pratique si on utilise le tag pour transporter des paramètres
        
        Set bouton = .Controls.Add(msoControlButton)
        bouton.Caption = "BoutonX2"
        bouton.Style = msoButtonIconAndCaption
        'bouton.Visible = True
        bouton.FaceId = 5687 'l'icone n'est pas obligatoire
        'ici on instancie une gestion du click donc une instance de classe  et on la GroupeClasseionne pour qu'elle dur pendant toute la durée ou le fichier est ouvert
        Set cbevent.BtnEvents4 = Application.VBE.Events.CommandBarEvents(bouton)
        Set cbevent.CbmControl4 = bouton 'l'object CbmControl1 de la classe est le bouton(pratique si on utilise le tag pour transporter des paramètres
        
        
        
        Set sep = .Controls.Add(Type:=msoControlButton)
        sep.Caption = "|"
        sep.Style = msoButtonCaption
        
    End With
End Sub

Option Explicit


'les events  des bouton separés dans la même classe
Public WithEvents BtnEvents As CommandBarEvents
Public WithEvents BtnEvents2 As CommandBarEvents
Public WithEvents BtnEvents3 As CommandBarEvents
Public WithEvents BtnEvents4 As CommandBarEvents

'les bouton en type commandbarbutton
Public CbmControl1 As CommandBarButton
Public CbmControl2 As CommandBarButton
Public CbmControl3 As CommandBarButton
Public CbmControl4 As CommandBarButton

Private Sub BtnEvents_Click(ByVal cbControl As Object, Handled As Boolean, CancelDefault As Boolean)
     'Handled = True
    CancelDefault = True
MsgBox CbmControl1.Caption
Add_Menu_Cmb_Standard
End Sub

Private Sub BtnEvents2_Click(ByVal cbControl As Object, Handled As Boolean, CancelDefault As Boolean)
     'Handled = True
    CancelDefault = True
MsgBox CbmControl2.Caption
End Sub
Private Sub BtnEvents3_Click(ByVal cbControl As Object, Handled As Boolean, CancelDefault As Boolean)
     'Handled = True
    CancelDefault = True
MsgBox CbmControl3.Caption
End Sub
Private Sub BtnEvents4_Click(ByVal cbControl As Object, Handled As Boolean, CancelDefault As Boolean)
    'Handled = True
    CancelDefault = True
 MsgBox CbmControl4.Caption
End Sub