affecter couleur fond label selon cellule

[herve62]

Bonsoir
Un truc que je pige pas ? comment affecter le backcolor de la cellule au fond du label dans l'USF ?
c'est bien le code 20 ( bleu ciel en décimal) , mais même en transférant la valeur c'est toujours NOIR ?
Merci

 

[Roland_M]

Re : affecter couleur fond label selon cellule

Bonsoir,

comme ceci avec Color !

Controls("Label" & bl).BackColor = .Cells(1, 1).Interior.Color

 

[lio63]

Re : affecter couleur fond label selon cellule

Dommage car avec les fichiers en xlsm je ne peux beneficier des exemple qui repondraient a une question que je me posait aussi...
Lioenl

 

[herve62]

Re : affecter couleur fond label selon cellule

Ok merci Roland
Pourtant j'avais toujours vu ColorIndex ?? ( de Jacques B.)

 

[herve62]

Re : affecter couleur fond label selon cellule

Lio
Si tu es encore en 2003 , Tu n'as pas le pack office SP3 qui te permet de remettre les xlsm en xls ?

 

[Victor21]

Re : affecter couleur fond label selon cellule

Bonjour, lio63, herve62, Roland_M

Si ça peut dépanner, en pj le fichier original en XLS.
Et par la même occasion, hervé et Roland si vous le sentez, un peu plus bas dans la liste des fils, une question de lio que je suis incapable de traiter

 

[lio63]

Re : affecter couleur fond label selon cellule

Merci Victor pour le fichier et pour la relance vers ma question ....

 

[Roland_M]

Re : affecter couleur fond label selon cellule

bonsoir,

@Herve: ne pas confondre
Color avec RGB(Rouge, Vert, Bleu)
ColorIndex = 56 couleurs

sur les cellules tu as le nuancier !

 

[herve62]

Re : affecter couleur fond label selon cellule

Re
Oui je sais , j'ai le "vieux" fichier xls avec tous les types de palette ( #FFFF aussi ) et je sais qu'on peut mettre = Vbred , Blue mais limité
juste pour savoir ? : comment peut-on affecter une variable : Controls("Label" & bl).BackColor = lacouleur ?? en decimal , binaire , RGB, Hexa ??

Victor : j'ai zieuté et répondu à ton appel sur son "Post"

 

[laetitia90]

Re : affecter couleur fond label selon cellule

bonsoir tous

exemple avec ton fichier label1 cells(1,1) a adapter declare les variables en long
en RGB

Private Sub UserForm_Initialize()
With Feuil1
A = .Cells(1, 1).Interior.Color
R = Int(A Mod 256): G = Int((A Mod 65536) / 256): B = Int(A / 65536)
Label1.BackColor = RGB(R, G, B)
End With
End Sub

ps avec un fichier exemple c'est mieux