Code RGB
Résolu
mic6259
Messages postés
342
Date d'inscription
Statut
Membre
Dernière intervention
-
mic6259 Messages postés 342 Date d'inscription Statut Membre Dernière intervention -
mic6259 Messages postés 342 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Excel récupérer couleur cellule sans macro
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
3 réponses
Bonjour
Remplace ton code par celui-ci :
Cdlmnt
Via
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