RGB Excel VBRésolu

Question

Bonjour,

J'ai un petit soucis :
Lorsque je r&#233;cup&#232;re la couleur d'un control VB et que j'essai de l'affecter &#224; une cellule excel la couleur est diff&#233;rente

j'ai essay&#233; en convertissant la valeur du control VB en RGB en faisant :
Dim N As Long, Ref As Integer
    Ref = 256
    N = CLng(Valeur)
    R = N Mod Ref
    G = (N / Ref) Mod Ref
    B = ((N / Ref) ^ 2) Mod Ref


RGB(R, G, B)

Mais la couleur est diff&#233;rente aussi

Heu, au secours...

Renfield · Accepted Answer

Comme je te l'ai dit, Excel utilise des palettes.
si tu modifie la propri&#233;t&#233; Color de ta cellule, Excel va chercher dans sa palette, la couleur la plus proche, et l'utiliser.
ca explique pourquoi la valeur affect&#233;e est diff&#233;rente de la valeur r&#233;cup&#233;r&#233;e par la suite

si tu veux utiliser une couleur issue d'une valeur RGB, il te faudra donc la placer dans la palette....

soit en faisant :
    ActiveWorkbook.Colors(1) = RGB(238, 145, 154)
    r.Interior.Color = RGB(238, 145, 154)

soit en faisant :
    ActiveWorkbook.Colors(1) = RGB(238, 145, 154)
    r.Interior.ColorIndex = 1

(le 1 est ici arbitraire)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

VB utilise la notation Bleu Vert Rouge....

Excel utilise des palettes

la cause de ton probleme doit se trouver entre les deux

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_eldim · Answer

Merci pour ta r&#233;ponse, mais je viens de trouver ce qui cloche :
Excel est mal foutu : V=Cells(1,1).interior.color
ne donne pas la m&#234;me couleur dans l'autre sens : 
Cells(1,1).interior.color=V

Il faut passer une valeur hexadecimal &#224; Excel

Va falloir que je travail l&#224; dessus vu que j'ai pas encore regarder la conversion d'un long en Hexa

Renfield · Answer

"il faut passer une valeur hexadecimale" 

j'en doute.... hexa ou pas, c'est juste un changement de forme (de base, pour etre exact).... la valeur est la m&#234;me ...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_eldim · Answer

Ben fais un test tu verras...
Affecte une couleur &#224; une cellule
Et par le code donne la m&#234;me valeur de couleur &#224; une autre...
Et si &#231;a marche je suis tout ou&#239;

cs_eldim · Answer

Comment peut-on faire pour convertir &#231;a : 16777215
en &#231;a (reconnaissable par VBExcel comme &#233;tant une valeur de couleur) : &H00FFFFFF&

cs_eldim · Answer

Non je viens de trouver ce qu'il faut :
Private Declare Function TranslateColor Lib "olepro32.dll" Alias "OleTranslateColor" _
    (ByVal clr As OLE_COLOR, ByVal palet As Long, col As Long) As Long


Public Function fnTranslateColor(ByVal C)
    On Error GoTo Er
    Dim RealColor As Long
    Dim L As Long
    L = CLng(C)
    TranslateColor L, 0, RealColor
    fnTranslateColor = RealColor
    Exit Function
Er:
    modMsg.fnMsgCr Err.Description
End Function

Merci tout de m&#234;me de ton aide
A+

Renfield · Answer

OleTranslateColor permet simplement de convertir les constantes correspondant aux couleurs systeme (vbWindowBackground, etc) en leur valeur RGB...

l&#224;, tu changes d'&#233;nonc&#233; ^^

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_eldim · Answer

oups mais heu pourquoi &#231;a semble fonctionn&#233; ?...
le rgb je l'ai test&#233; d&#233;ja (comme je l'ai au d&#233;part)
mais &#231;a n'avait pas bien march&#233;...

cs_eldim · Answer

Ah ok je vois pourquoi...
Il fallait faire :
red = rgbValue And &HFF&
green = (rgbValue And &HFF00&) \ &HFF&
blue = rgbValue \ &HFF00&

C'est donc bien une question de RGB

Merci beaucoup de ton aide
A+

Renfield · Answer

le TranslateColor peut etre utiliser.... il faut tester si tu as affaire a une couleur systeme ou non, et recuperer la valeur RGB en cons&#233;quence (en utilisant TranslateColor ou non)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_eldim · Answer

&#231;a merde encore...
Y a plein de couleurs qui ne passent pas... exemple : 12632319
ou encore : 12640511

Avec mon code :
...
fMAIN.Cells(Y, X).Interior.Color = modColor.fnConvColor(Fond)
...
Public Sub sbConvRGB(Valeur, ByRef R As Integer, ByRef G As Integer, ByRef B As Integer)
    On Error Resume Next
    Dim N As Long, Ref As Integer
    Ref = 256
    N = CLng(Valeur)
    R = N And &HFF&
    G = (N And &HFF00&) \ &HFF&
    B = N \ &HFF00&
End Sub


Public Function fnConvColor(Valeur)
    On Error Resume Next
    Dim R As Integer, G As Integer, B As Integer
    sbConvRGB Valeur, R, G, B
    fnConvColor = RGB(R, G, B)
End Function

besoins d'aide..

Renfield · Answer

si tu veux utiliser une couleur issue d'une valeur RGB, il te faudra donc la placer dans la palette....

soit en faisant :
    ActiveWorkbook.Colors(1) = RGB(238, 145, 154)
    r.Interior.Color = RGB(238, 145, 154)

soit en faisant :
    ActiveWorkbook.Colors(1) = RGB(238, 145, 154)
    r.Interior.ColorIndex = 1

(le 1 est ici arbitraire)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_eldim · Answer

le probl&#232;me de ta technique c'est que &#231;a change les index
or &#231;a limite les couleurs &#224; 56
sans compt&#233; que &#231;a modifie les couleurs de r&#233;f&#233;rence d'excel...

donc gros probl&#232;me

Renfield · Answer

Excel joue avec une palette...
si tes couleurs 12640511  ou  12632319  ne sont pas dans la palette, Excel va prendre la couleur la plus proche s'y trouvant.

il n'est nullement interdit de moficier la palette, pour arriver a tes fins.... (cette palette est propre a ton classeur)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_eldim · Answer

le probl&#232;me est que je voulais g&#233;rer 72 couleur or Excel n'en g&#232;re que 56. En plus, ces 72 couleurs ne devais pas interf&#233;rer avec les couleurs d'excel pr&#233;-&#233;tablies.

Bref j'ai du changer d'optique et faire un truc plus null

car lorsque je changeais un index de la palette &#231;a changeait toutes les cellules dont la propri&#233;t&#233; color correspondait &#224; ce colorindex

(Bref j'esp&#232;re qu'ils vont s'am&#233;liorer de ce cot&#233; l&#224; avec la nouvelle version manag&#233;e)

Merci quand m&#234;me de ton aide et de ton attention

Renfield · Answer

je connaissai pas cette limite de 56 couleurs, et ne comprend pas pourquoi Excel a conserv&#233; cette contrainte, de la palette...

72 couleurs, ca passera donc pas, dsl que tes efforts aient &#233;t&#233; an&#233;antis

Renfield
Admin CodeS-SourceS - MVP Visual Basic

RGB Excel VB

17 réponses

Discussions similaires