Si tu mets le code dans textbox1,
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Liste des caractères accéptés dans le TextBox1
If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0
Dim pLocation As POINT
Dim lColour, lDC As Long
lDC = GetWindowDC(0)
Call GetCursorPos(pLocation)
lColour = GetPixel(lDC, pLocation.X, pLocation.Y)
'MsgBox lColour
UserForm1.BackColor = lColour
ActionStop = True
Me.TextBox1 = UserForm1.BackColor
ActionStop = False
ReleaseDC 0&, lDC
End Sub
Je constate que ça marche :p c'est déjà ça. Je vais manger, je reviens sur le sujet plus tard.