CONVERSION COULEUR DÉCIMALE / HÉXADÉCIMALE / RGB

'Mettez tout ca dans un module:

Public RedHex, GreenHex, BlueHex
Function ConvertToHex(Picture As PictureBox, X, Y)
Dim Red, Green, Blue
ConvertToHex = Picture.Point(X, Y)
ConvertToHex = Hex(ConvertToHex)
Red = Right(ConvertToHex, 2)
Green = Mid(ConvertToHex, 3, 2)
Blue = Left(ConvertToHex, 2)
ConvertToHex = Red & Green & Blue
If ConvertToHex = "00" Then ConvertToHex = "000000"
End Function

Function ConvertToDec(Picture As PictureBox, X, Y)
ConvertToDec = Picture.Point(X, Y)
End Function

Function ConvertToRGB(Picture As PictureBox, X, Y)
Dim Red, Green, Blue
ConvertToRGB = Picture.Point(X, Y)
ConvertToRGB = Hex(ConvertToRGB)
Red = Right(ConvertToRGB, 2)
Green = Mid(ConvertToRGB, 3, 2)
Blue = Left(ConvertToRGB, 2)
ConvertToRGB = Red & Green & Blue
If ConvertToRGB = "00" Then ConvertToRGB = "000000"
RedHex = Val("&H" & Left(ConvertToRGB, 2) & "&")
GreenHex = Val("&H" & Mid(ConvertToRGB, 3, 2) & "&")
BlueHex = Val("&H" & Right(ConvertToRGB, 2) & "&")
ConvertToRGB = RedHex & " " & GreenHex & " " & BlueHex
End Function