Couleurs

Bonjour zen69

Le Sub test( ) ci-dessous permet de décomposer ton code RGB en ses composantes. C'est ce que tu veux obtenir ? 

Option Explicit
Type COMPOSANTESRGB
        rouge As Integer
        vert As Integer
        bleu As Integer
End Type

Sub test()
Dim couleurs As COMPOSANTESRGB
Dim codeRGB As Long
codeRGB = Val("&H000000FF&")
couleurs = couleursRGB(codeRGB)
MsgBox couleurs.rouge & " " & couleurs.vert & " " & couleurs.bleu
End Sub

Function couleursRGB(codeRGB As Long) As COMPOSANTESRGB
'
' retourne les composantes rouge vert bleu du code RGB dans une variable
' de type utilisateur COMPOSANTESRGB
'
    With couleursRGB
        .rouge = codeRGB Mod 256
        .bleu = Int(codeRGB / 65536)
        .vert = (codeRGB - (.bleu * 65536) - .rouge) / 256
    End With
End Function

Cordialement