VBA Couleur en Hex

Bonjour le forum

Je travail en ce moment avec les couleurs et je rencontre une petite difficulté

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

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

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

Merci @Ausecour ! Tout ça à l'air parfait, merci

Rechercher des sujets similaires à "vba couleur hex"