Code RGB [Résolu/Fermé]

Signaler
Messages postés
235
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
3 août 2020
-
Messages postés
235
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
3 août 2020
-
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

3 réponses

Messages postés
12457
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 août 2020
1 953
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 56926 internautes nous ont dit merci ce mois-ci

Messages postés
9523
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 juillet 2020
1 875
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
Messages postés
235
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
3 août 2020

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