Code RGB [Résolu]

Messages postés
198
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
7 août 2019
- - Dernière réponse : mic6259
Messages postés
198
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
7 août 2019
- 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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
10968
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
17 août 2019
1371
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 57514 internautes nous ont dit merci ce mois-ci

Commenter la réponse de via55
Messages postés
9058
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 août 2019
1607
0
Merci
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
Commenter la réponse de ccm81
Messages postés
198
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
7 août 2019
0
Merci
Merci beaucoup ccm81 et via55
les 2 fonctions fonctionnent superbement
Mille fois merci
Cordialement a vous 2
Commenter la réponse de mic6259