65280 = &HFF00 et Color

[Kobaya]

bonjour le Forum,

il y a un problème qui me chagrine depuis ce matin.

J'ai déclaré des constantes qui me servent pour colorer des cellules.
Avec le code ci-dessous, CVERTBRILLANT donne une couleur bleu clair au lieu du vert attendu.

Public Const CVERTBRILLANT = &HFF00 
Range("A1").Interior.Color = CVERTBRILLANT

Par contre, le code ci-dessous fonctionne. Ce qui est bizarre, c'est que 65280 = &HFF00.

Public Const CVERTBRILLANT = 65280
Range("A1").Interior.Color = CVERTBRILLANT

J'ai essayé en faisant

Public Const CVERTBRILLANT As Long = &HFF00
Range("A1").Interior.Color = CVERTBRILLANT

mais ça ne fonctionne pas mieux.

Quelqu'un peut me dire où est mon erreur ?

 

[Kobaya]

Re : 65280 = &HFF00 et Color

ben, oui, mais justement, j'ai récupéré cette valeur en faisant ?Activecell.Interior.Color (sur une cellule ayant en couleur de fond celle qui m'intéresse), d'où ma perplexité... 😱

 

[PascalXLD]

Re : 65280 = &HFF00 et Color

Bonjour

Perso ton &HFF00 il me le traduit en -256 ce qui donne donc le bleu clair

 

[Kobaya]

Re : 65280 = &HFF00 et Color

bonjour pascal76,

et oui, chez moi aussi, et c'est bien ça qui me fait bouillir les neurones 😡
d'autant plus que =HEX2DEC("FF00") renvoie bien 65280

 

[Sylvain]

Re : 65280 = &HFF00 et Color

Bonjour,

Moi en général, quand je veux personnaliser mes couleurs, je change la palette et j'applique la nouvelle couleur à la cellule avec colorindex : ActiveWorkbook.Colors(38) = RGB(255, 102, 153) (ou outils / options/ onglet couleurs...)
puis
Range("E7").Interior.ColorIndex = 38

Ca me semble plus classique au moins pour une cellule.

A+

 

[Kobaya]

Re : 65280 = &HFF00 et Color

bonjour Sylvain,

excellente suggestion ! je vais la tester (mais demain, j'en ai assez fait pour aujourd'hui 😀 )

Merci à tous de vous être penchés sur mon souci 🙂