Bonjour le forum
Je tourne en rond pour convertir un code HSV vers un code RGB
Je me suis inspiré de l'image si dessous pour réaliser le code :
Image issue du site :
J'ai donc construit mon code comme ci-dessous mais ça ne marche pas vraiment ... Je pense qu'il y a un soucis au niveau du calcul de "X" :
Private Sub CalculV2()
Dim H, S, V, C, X, m, R2, G2, B2, R, G, B
H = 253
S = 108
V = 158
C = V * S
X = C * (1 - Abs((H / 60) Mod 2 - 1))
m = V - C
If H >= 0 And H < 60 Then R2 = C: G2 = X: B2 = 0
If H >= 60 And H < 120 Then R2 = X: G2 = C: B2 = 0
If H >= 120 And H < 180 Then R2 = 0: G2 = C: B2 = X
If H >= 180 And H < 240 Then R2 = 0: G2 = X: B2 = C
If H >= 240 And H < 300 Then R2 = X: G2 = 0: B2 = C
If H >= 300 And H < 360 Then R2 = C: G2 = 0: B2 = X
R = (R2 + m) * 255
G = (G2 + m) * 255
B = (B2 + m) * 255
MsgBox R & Chr(10) & G & Chr(10) & B
'===================
'---Message retourné : ---
'252,45
'108,53
'108,53
End Sub
Par avance merci de l’intérêt et de l'aide apportée au sujet