Rgb inverse

Commenter

Contenu du snippet

Ce petit code convertit la valeur d'une couleur en paramètres RGB
D'accord, ça ne sert pas à grand chose ... mais comme je suis curieux

Soyez indulgents, c'est le premier code que je dépose ...

A+

Source / Exemple : 


Public Sub RGB_Reverse(vRGB As Long)
Dim R As Long, G As Long, B As Long
Dim i As Long
Dim Ar1, Ar2

Const conRed = 1, conGreen = 256, conBlue = 65536

    If vRGB < 0 Or vRGB > 16777215 Then
        MsgBox "Valeur 'vRGB' incorrecte", vbOKOnly
        Exit Sub
    End If
    
    Ar1 = Array(conRed, conGreen, conBlue)
    Ar2 = Array(R, G, B)
    
        For i = UBound(Ar1) To LBound(Ar1) Step -1
            If vRGB >= Ar1(i) Then
                Ar2(i) = (vRGB - (vRGB Mod Ar1(i))) / Ar1(i)
                vRGB = vRGB - (Ar1(i) * Ar2(i))
            End If
        Next
    
    Debug.Print Ar2(0); Ar2(1); Ar2(2)

End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.