Code RGB

Résolu/Fermé
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 31 juil. 2019 à 14:05
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 31 juil. 2019 à 14:39
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
A voir également:

3 réponses

via55 Messages postés 14403 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 24 avril 2024 2 703
Modifié le 31 juil. 2019 à 14:26
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
1