Declare PtrSafe Function ChooseColorA Lib "Comdlg32" (lpChooseColor As udtCColor) As Long
Declare PtrSafe Function FindWindowA Lib "User32" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long
Function SélCouleur(Code_RVB) As Boolean
Dim CColor As udtCColor
Dim CustColors As String * 16
With CColor
.lStructSize = 36
.hwndOwner = FindWindowA(0&, Application.Caption)
.lpCustColors = CustColors
.Flags = 2
End With
If ChooseColorA(CColor) = 0 Then Exit Function
Code_RVB = CColor.rgbResult
SélCouleur = True
End Function
Sub Test()
Dim Code_RVB As Long
If Not SélCouleur(Code_RVB) Then Exit Sub
MsgBox "Code RVB de la couleur choisie : " & Code_RVB
End Sub