VBA Excel - Retrouver RGB à partir de ColorIndex

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA Excel - Retrouver RGB à partir de ColorIndex

jipo

Kamoulox !

On peut fixer une couleur de la palette du classeur en faisant
.Color = RGB (R, G, B)
Mais peut obtenir les composantes RGB à partir de .Color ?

Je donne ma langue au tchat ...

---------------
"Comme des pommes d'or sur des ciselures d'argent, Ainsi est une parole dite à propos" (Proverbes de Salomon)

Publicité

olivthill

Voici une petite fonction maison pour faire cela.
(Noter l'antislash à la place du slash pour avoir une division sans arrondi)

Sub show_col()
c = Cells(1, 1).Interior.Color
bleu = c \ 65536
vert = (c - bleu * 65536) \ 256
rouge = c - bleu * 65536 - vert * 256
MsgBox (rouge & ", " & vert & ", " & bleu)
End Sub

Emcy38

ça ne marche pas ta solution => essaye avec la couleur de fond d'un bouton....

tegu

En admettant que sa fonction soit correcte (j'ai pas détaillé mais ça me semble bon), je pense que le problème vient du fait que les boutons et autres objets n'ont pas de couleur RGB mais une couleur indexée sur la palette système.
Cela permet de changer la couleur en modifiant les paramètres d'apparence de windows notamment.

kurisutofujp

Ca marche tres bien.

Comme l'a precisé olivthill, il ne faut pas oublier de faire les operation avec un "\" et non avec un "/" (sinon, faire un cast des valeur en int. par exemple bleu = Int(c / 65536) )

Message édité par kurisutofujp le 14-09-2006 à 10:03:54

kiki29

Dim CoulRVB As Long
Dim Bleu As Integer
Dim Vert As Integer
Dim Rouge As Integer

CoulRVB = ActiveCell.Interior.Color

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA Excel - Retrouver RGB à partir de ColorIndex

Sujets relatifs
vba excel: problème de compatibilité sur différents postes de travail	[VBA] Capacité à manipuler des String ?
[excel] application automatique d'une macro à une case	Ignorer les messages de confirmation (VBA Excel)
[VBA EXCEL 2003]Lister les noms des dossiers d'un repertoire > listbox	excel : fonction pour effacer le contenu d'une cellule
partir le code VBA d'un bouton d'un formulaire access
Plus de sujets relatifs à : VBA Excel - Retrouver RGB à partir de ColorIndex

Page générée en 0.042 secondes