Autres [Résolu]ajouter une palette couleur dans le menu VBE

Option Explicit
Public LeBouton As clsControlEvent
Sub test()
    Dim CTRL As CommandBarButton
    Dim evt As clsControlEvent
    Set CTRL = Application.VBE.CommandBars("Tools").Controls("Couleurs")
    If Not CTRL Is Nothing Then CTRL.Delete
    ' N'ai pas envie de reseter ma barre d'outils
    'Application.VBE.CommandBars("Tools").Reset
    Set CTRL = Application.VBE.CommandBars("Tools").Controls.Add(msoControlButton)
    With CTRL
        .Caption = "Couleurs"
        .BeginGroup = True
        .FaceId = 25
        .OnAction = "showpalette"
    End With

    Set evt = New clsControlEvent
    Set evt.ControlEvent = Application.VBE.Events.CommandBarEvents(CTRL)
    Set LeBouton = evt
End Sub
Sub showpalette()
    Dim lcolor As Long
    With Application.Dialogs(xlDialogEditColor)
        If .Show(2, 255, 10, 10) = True Then MsgBox ActiveWorkbook.Colors(2)
    End With
    ActiveWorkbook.ResetColors
End Sub

Option Explicit
Public WithEvents ControlEvent As CommandBarEvents


Private Sub ControlEvent_Click(ByVal Control As Object, Handled As Boolean, CancelDefault As Boolean)
    Application.Run Control.OnAction
    Handled = True
    CancelDefault = True
End Sub

Sub showpalette()
    Dim lcolor As Long
    Dim des As Object
    With Application.Dialogs(xlDialogEditColor)
        If .Show(2, 255, 10, 10) = True Then lcolor = ActiveWorkbook.Colors(2)
        Application.VBE.ActiveVBProject.VBComponents("UserForm1").Designer.Controls("CommandButton1").BackColor = lcolor
    End With
    ActiveWorkbook.ResetColors
End Sub