D'ailleurs je ne pensais pas qu'on pouvait utiliser la boîte de dialogue de choix de couleur dans une macro, mais je viens de tester et ça marche super bien !
Public Property Get GetColor() As OLE_COLOR
With CreateObject("MSComDlg.CommonDialog")
.CancelError = True
On Error Resume Next
.ShowColor
If Err Then
GetColor = -1
Else
GetColor = .Color
End If
On Error GoTo 0
End With
End Property
Sub test()
Debug.Print GetColor
End Sub
Mise au point facile de jeux de couleurs pour UserForm, Shape et cellules, voire images calculées. Possibilité de capturer un pixel n'importe où sur l'écran. Module de classe Couleur pour utilisation dans d'autres projets VBA.