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