Excel VBA Correspondance couleur hexa RGB

Résolu/Fermé
Signaler
Messages postés
16
Date d'inscription
vendredi 2 novembre 2007
Statut
Membre
Dernière intervention
18 février 2009
-
 Jeff Icocarree -
Bonjour,
je cherche la correspondance en RGB de la couleur H00C0FFFF
existe-t-il une macro qui affiche ces correspondances
j'ai cherché sur le Web mais les tableaux que j'ai trouvé ne me donne pas exactement cette couleur
Merci
Cordialement,

4 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 190
Bonjour,

Cette valeur n'est pas reconnu par VB ...

;o)

Polux
0
Messages postés
16
Date d'inscription
vendredi 2 novembre 2007
Statut
Membre
Dernière intervention
18 février 2009
3
bonjour,
je pense que je me suis mal expliqué
voila ce que je veux faire
dans un userform j'ai des cases option et je veux changer la couleur
de celle qui est séléctionnée et reinitialisé tous les autres avec ma couleur d'origine
qui apparait en vb sous la forme &H00C0FFFF&
dans ma macro je dois ecrire opt_choix1.backcolor = RGB(xxx,xxx,xxx)
donc ce que je cherche c'est que je dois mettre comme chiffre dans RGB(xxx,xxx,xxx) qui correspondait à &H00C0FFFF&
Merci
0
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 190
Bonjour,

Dans ce cas pour quoi ne par écrire directement : Opt_Choix1.BackColor = &H00C0FFFF& ???

;o)

Polux
0
Messages postés
16
Date d'inscription
vendredi 2 novembre 2007
Statut
Membre
Dernière intervention
18 février 2009
3
bonjour,
j'avais essayé et j'avais une erreur incompatibilité de type
mais je l'avais mis entre côte pourquoi ????
Merci cela marche
par contre je suis toujours preneur pour une macro qui ferait la correspondance
0

Bonjour.

Pour les couleurs RGB, il me semble que ceci marche :

Dim Couleur as long
Dim Rouge as integer
Dim Vert as integer
Dim Bleu as integer

Couleur=(((((((((((((mettre ici la couleur ou la variable))))))))))))

Rouge = Int(Couleur Mod 256)
Vert = Int((Couleur Mod 65536) / 256)
Bleu = Int(Couleur / 65536)


_________________________________

Jeff.
Pour vous hisser haut, pensez (ico)² !! http://icocarree.fr
0