Code RGB Résolu/Fermé

Question

Bonjour, 
pourriez-vous m'aider a trouver la solution, comme sur la pièce jointe, en A1 la couleur ici noir, en B1 code couleur parmi les 56, de modifier B1 en code RGB qui me donnerais par exemple 0.0.0 en B1 pour la couleur noir ainsi de suite pour les autres couleurs.
Merci beaucoup a tous

https://cjoint.com/c/IGFmaAkEac8

via55 · Answer

Bonjour

Remplace ton code par celui-ci :
Function CodeCouleur(CelluleCouleur As Range)
'Retourne le code couleur de la CelluleCouleur
Application.Volatile
CoulLong = CelluleCouleur.Interior.Color

'extraire RVB
R = Int(CoulLong Mod 256)
V = Int((CoulLong Mod 65536) / 256)
B = Int(CoulLong / 65536)

couleurs = R & "," & V & "," & B
CodeCouleur = couleurs

End Function
 Cdlmnt
Via

ccm81 · Answer

Bonjour

Essaies

Function CodeCouleur(CelluleCouleur As Range) As String
'Retourne le code couleur de la CelluleCouleur
Application.Volatile
coul = CelluleCouleur.Interior.Color
R = Str(coul Mod 256)
coul = coul \ 256
G = Str(coul Mod 256)
coul = coul \ 256
B = Str(coul Mod 256)
CodeCouleur = R + "." + G + "." + B
End Function
Cdlmnt

mic6259 · Answer

Merci beaucoup ccm81 et via55
les 2 fonctions fonctionnent superbement
Mille fois merci
Cordialement a vous 2

Code RGB

3 réponses

Discussions similaires