Excel VBA Correspondance couleur hexa RGB

Résolu/Fermé
buldo1 Messages postés 16 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 18 février 2009 - 13 nov. 2007 à 18:35
 Jeff Icocarree - 13 févr. 2009 à 13:45
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

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 nov. 2007 à 23:11
Bonjour,

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

;o)

Polux
0
buldo1 Messages postés 16 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 18 février 2009 3
14 nov. 2007 à 09:03
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
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
14 nov. 2007 à 11:29
Bonjour,

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

;o)

Polux
0
buldo1 Messages postés 16 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 18 février 2009 3
15 nov. 2007 à 07:04
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
Jeff Icocarree
13 févr. 2009 à 13:45
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