couleur pour label dans useform

[toto145]

Bonjour

voila j'ai une userform dans la quelle je crée plusieur label en fonction d'un nombre, je recupere la couleur d'une cellule avec :

macouleur = Sheets("feuil1").Range("b9").Interior.ColorIndex

et je voudrai la réinjecter comme couleur de fond dans mon label

Label2.BackColor = macouleur

mais cela me met automatiquement un fond noir

meme si je mets directement le code couleur

par contre si je le code &HC0FFFF la couleur change

comment faire pour tranformer le code couleur chiffre en couleur hexdicimal automatiquement

merci d'avance

 

[Pierrot93]

Re : couleur pour label dans useform

Bonsoir Toto

essaye peut être comme ci dessous :

Private Sub UserForm_Initialize()
Label1.BackColor = Range("A1").Interior.Color
End Sub

A priori bon sous 2003, a voir sur autre version....

bonne soirée
@+

 

[BOISGONTIER]

Re : couleur pour label dans useform

Bonsoir,

macouleur = Sheets("feuil1").Range("b9").Interior.Color
Label2.BackColor = macouleur

JB
Formation Excel VBA JB

 

[toto145]

Re : couleur pour label dans useform

c'est ce que je fais mais ça ne marche pas
la couleur est toujours noire quelque soit la couleur chisie dans ma feuil excel

merci

 

[Pierrot93]

Re : couleur pour label dans useform

Re

je ne comprends plus trop... tu disais que tu utilisais la propriété "ColorIndex" et non la propriété "Color"...

macouleur = Sheets("feuil1").Range("b9").Interior.ColorIndex

@+

 

[BOISGONTIER]

Re : couleur pour label dans useform

Voir PJ (2003)

JB

 

[toto145]

Re : couleur pour label dans useform

toutes mes excuses effectivement ça marche avec color
j'ai lu trop vite et j'ai zappé la difference entre color et index color

entre temps j'ai également touvé que cela marché avec ".Interior.PatternColor"

merci a vous je peux continuer dans mon dévellopemet

a plus certainement pour d'autre questions