VBA Couleur en Hex Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 656
Appréciations reçues : 29
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 20 septembre 2019, 15:01

Bonjour le forum :)
Je travail en ce moment avec les couleurs et je rencontre une petite difficulté :lole:
Dans un TextBox je récupère le code couleur de la couleur de fond de mon UserForm, j'obtient par exemple dans mon TextBox1 la valeur 10248486, puis je souhaite obtenir ce même code mais au format hex.
J’utilise donc la formule suivante Me.TextBox2= "#" & Hex(Me.TextBox1) ce qui me renvoi #9C6126

le soucis est que la couleur obtenue avec 10248486 est un bleu mais quand je met #9C6126 dans Google j'obtient une autre couleur :scritch:

PS : Il s'agit d'un fichier présent dans la rubrique Tutos et astuces de ce site et je souhaite améliorer ce fichier :)

Par avance merci de l'aide apportée au sujet :D
Code couleur VBA.xlsm
(47.98 Kio) Téléchargé 7 fois
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'125
Appréciations reçues : 345
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 20 septembre 2019, 15:09

Bonjour,

de mémoire j'avais eu aussi des soucis de conversion de valeur décimale à hexadécimale, j'avais dû créer ma propre fonction...
Private Function DecVersHexa(ByVal valeur As Long) As String
rouge = Left(Hex(Int(valeur Mod 256)) & "00", 2)
vert = Left(Hex(Int((valeur Mod 65536) / 256)) & "00", 2)
bleu = Left(Hex(Int(valeur / 65536)) & "00", 2)
DecVersHexa = rouge & vert & bleu
End Function
Il faut juste lui donner la valeur décimale, et la fonction te retournera du texte qui représentera ton code hexadécimal, il faudra juste ajouter # devant :)
1 membre du forum aime ce message.
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Avatar du membre
GGautier
Membre dévoué
Membre dévoué
Messages : 656
Appréciations reçues : 29
Inscrit le : 18 décembre 2018
Version d'Excel : 2016 FR

Message par GGautier » 20 septembre 2019, 15:21

Merci @Ausecour ! Tout ça à l'air parfait, merci ;)
"Il n'y a pas de question idiote, seulement une réponse idiote" ALBERT EINSTEIN (enfin ici on évite). 8-)
Vous cherchez des réponses à vos questions ? regardez par ici ;) http://boisgontierjacques.free.fr/index2.htm
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message