'exemple avec la couleur bleu de base
Sub test()
voir vbBlue 'couleur en vbconstante
End Sub
Sub test2()
voir 16711680 'couleur en long
End Sub
Sub test3()
voir RGB(0, 0, 255) 'couleur en RGB
End Sub
Sub test4()
voir ThisWorkbook.Colors(5) 'couleur en RGB
End Sub
Sub voir(couleur)
chainehex = Right("000000" & Hex(couleur), 6) 'chaine hex pour decanter le RGB
r = Right(chainehex, 2)
g = Mid(chainehex, 3, 2)
b = Left(chainehex, 2)
texte = "couleur en long = " & vbBlue & vbCrLf
texte = "en hex ca donne &H" & Hex(couleur) & vbCrLf
texte = texte & "en long ca donne " & Val("&H" & chainehex) & vbCrLf
texte = texte & "chaine pour re composition pour B G R=" & chainehex & vbCrLf
texte = texte & "R =" & Val("&H" & r) & vbCrLf
texte = texte & "G =" & Val("&H" & g) & vbCrLf
texte = texte & "B =" & Val("&H" & b) & vbCrLf
texte = texte & " en html ca donne #" & r & g & b
MsgBox texte
End Sub