affecter couleur fond label selon cellule

Roland_M

XLDnaute Barbatruc

• 3 Février 2016

• #2

Re : affecter couleur fond label selon cellule

Bonsoir,

comme ceci avec Color !

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

 

Vote positif 0 Vote négatif

L

lio63

XLDnaute Nouveau

• 3 Février 2016

• #3

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2016

• #4

Re : affecter couleur fond label selon cellule

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

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2016

• #5

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 ?

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 3 Février 2016

• #6

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

 

Pièces jointes

• labelcolorLio.xls

  36.5 KB · Affichages: 59

Vote positif 0 Vote négatif

L

lio63

XLDnaute Nouveau

• 3 Février 2016

• #7

Re : affecter couleur fond label selon cellule

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 3 Février 2016

• #8

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 !

 

Dernière édition: 3 Février 2016

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2016

• #9

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"

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 3 Février 2016

• #10

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

Code:

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

 

Pièces jointes

• labelcolorLio (1).xlsm

  20.1 KB · Affichages: 61

Dernière édition: 3 Février 2016

Vote positif 0 Vote négatif