bonjour le forum
j'ai une erreur avec cette macro je comprends pas pourquoi merci de votre aide
Public Function coll()
Set ComDlg = CreateObject("MSComDlg.CommonDialog")
With ComDlg
.CancelError = True
.Color = RGB(255, 0, 0)
.Flags = cdlCCFullOpen Or cdlCCRGBInit
'Appel de la boite couleur
On Error Resume Next
.ShowColor
If Err.Number <> cdlCancel Then Exit Function
End With
coll = ComDlg.Color
End Function