Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Convertir un code couleur en RGB

Convertir un code couleur en RGB

6 réponses
Avatar
J-Pierre
Bonsoir tout le monde,

Ca fait des heures que je cherche sur Google et dans les API, je commence à flipper......

Je voudrais convertir un code couleur de décimal en RGB
Par exemple 16777215 en RGB (255,255,255).
Ou bien 16711680 en RGB(0, 0, 255)

Avec une belle fonction que je pourrais appeler, ce serait le bonheur absolu.....
call convCode (monCodeCouleur, rouge, vert, bleu)

Merci d'avance
J-Pierre
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
J-Pierre
C'est parti un peu vite....

Parce qu'il semblerait que l'algorithme pour passer de RGB à décimal est:
valeur décimale = B*256*256 + G*256 + R

Bonne nuit
J-Pierre

"J-Pierre" a écrit dans le message de news:
Bonsoir tout le monde,

Ca fait des heures que je cherche sur Google et dans les API, je commence à flipper......

Je voudrais convertir un code couleur de décimal en RGB
Par exemple 16777215 en RGB (255,255,255).
Ou bien 16711680 en RGB(0, 0, 255)

Avec une belle fonction que je pourrais appeler, ce serait le bonheur absolu.....
call convCode (monCodeCouleur, rouge, vert, bleu)

Merci d'avance
J-Pierre






Avatar
snack
Salut J-Pierre,

Parce qu'il semblerait que l'algorithme pour passer de RGB à décimal est:
valeur décimale = B*256*256 + G*256 + R


Effectivement...
Une fonction qui renvoie les couleurs "ByRef"...

Function SeeRGB(lRGB As Long, lBlue As Long, lGreen As Long, lRed As Long)

lRed = Int(lRGB Mod 256)
lGreen = Int((lRGB Mod 65536) / 256)
lBlue = Int(lRGB / 65536)

End Function

--
snack
Utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/

Avatar
J-Pierre
Bonjour Snack,

Merci pour la fonction, c'est très astucieux, mais dis-moi, si tu es toujours aussi présent, pourquoi ne participes-tu plus (ou
presque plus) au forum ?

J-Pierre

"snack" a écrit dans le message de news:
Salut J-Pierre,

Parce qu'il semblerait que l'algorithme pour passer de RGB à décimal est:
valeur décimale = B*256*256 + G*256 + R


Effectivement...
Une fonction qui renvoie les couleurs "ByRef"...

Function SeeRGB(lRGB As Long, lBlue As Long, lGreen As Long, lRed As Long)

lRed = Int(lRGB Mod 256)
lGreen = Int((lRGB Mod 65536) / 256)
lBlue = Int(lRGB / 65536)

End Function

--
snack
Utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/







Avatar
Pierre CFI [mvp]
il n'a pas payé sa cotisation, mais, chut...:o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"J-Pierre" a écrit dans le message de news:
Bonjour Snack,

Merci pour la fonction, c'est très astucieux, mais dis-moi, si tu es toujours aussi présent, pourquoi ne participes-tu plus (ou
presque plus) au forum ?

J-Pierre

"snack" a écrit dans le message de news:
Salut J-Pierre,

Parce qu'il semblerait que l'algorithme pour passer de RGB à décimal est:
valeur décimale = B*256*256 + G*256 + R


Effectivement...
Une fonction qui renvoie les couleurs "ByRef"...

Function SeeRGB(lRGB As Long, lBlue As Long, lGreen As Long, lRed As Long)

lRed = Int(lRGB Mod 256)
lGreen = Int((lRGB Mod 65536) / 256)
lBlue = Int(lRGB / 65536)

End Function

--
snack
Utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/











Avatar
J-Pierre
Il faut t'envoyer combien de gueuses pour que tu l'autorises à revenir ?

Pas des filles, cochon, de la bière.....

"Pierre CFI [mvp]" a écrit dans le message de news:
il n'a pas payé sa cotisation, mais, chut...:o))

--


Avatar
snack
Merci pour la fonction, c'est très astucieux, mais dis-moi, si tu es
toujours aussi présent, pourquoi ne participes-tu plus (ou

presque plus) au forum ?


En fait, mon boulot (qui n'a rien à voir avec l'informatique) me prend pas
mal de temps, et surtout j'ai acheté une maison à retaper... et troqué par
la même occasion la souris contre une truelle !
Et aujourd'hui, je suis en congé, c'est pourquoi j'ai fait une apparition ce
matin !
Mais comme je le disais dans un précdent post, je viens régulièrement sur le
ng mais je passe "en coup de vent". Voilà !
Bonne continuation...
--
snack
Utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/