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

Sub test()
    Dim lcolor As Long
    With Application.Dialogs(xlDialogEditColor)
        If .Show(2, 255, 0, 0) = True Then MsgBox ActiveWorkbook.Colors(2)
    End With
    ActiveWorkbook.ResetColors
End Sub

Sub test()
    Dim CTRL
    Set CTRL = Application.VBE.CommandBars("Tools").Controls.Add(1)
    With CTRL
        .Caption = "Couleurs"
        .BeginGroup = True
        .FaceId = 25
        .OnAction = "showpalette"
    End With
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

Sub ColorPaletteDialogBox()
Dim lcolor As Long
If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then
  'user pressed OK
  lcolor = ActiveWorkbook.Colors(10)
  ActiveCell.Interior.Color = lcolor
Else
  'user pressed Cancel
End If
End Sub

Private Declare Function ChooseColorA& Lib "comdlg32.dll" (pChoosecolor As CHOOSECOLOR)
Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Type CHOOSECOLOR
    lStructSize As Long: hwndOwner As Long: hInstance As Long: rgbResult As Long: lpCustColors As Long
    flags As Long: lCustData As Long: lpfnHook As Long: lpTemplateName As String
End Type

Private Function ColorDlg&()
      Dim CCR As CHOOSECOLOR: ColorDlg = -1
    With CCR
        .lStructSize = Len(CCR): .hwndOwner = GetActiveWindow
        .rgbResult = dColor: .lpCustColors = VarPtr(&HFFFFFF): .flags = &H101
    End With
    If ChooseColorA(CCR) Then ColorDlg = CCR.rgbResult
End Function

Private Sub CommandButton1_Click()
    Dim i As Byte, NewColor&
    NewColor = ColorDlg
    If NewColor <> -1 Then Me.CadreColor1.BackColor = NewColor
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 test()
    Dim CTRL
     Dim evt as clsControlEvent

    Set CTRL = Application.VBE.CommandBars("Tools").Controls.Add(1)
    With CTRL
        .Caption = "Couleurs"
        .BeginGroup = True
        .FaceId = 25
        .OnAction = "showpalette"
    End With
  
Set evt = New clsControlEvent
        Set evt.ControlEvent = Application.VBE.Events.CommandBarEvents(cbButton)


End Sub