changer la couleur d'un label

J

joss56

XLDnaute Accro

• 23 Janvier 2012

• #2

Re : changer la couleur d'un label

bonjour,

if val(label)>=0 then
label.backcolor=rgb(0,255,0)
else
label.backcolor=rgb(255,0,0)
end if

 

Vote positif 0 Vote négatif

S

serval

XLDnaute Occasionnel

• 23 Janvier 2012

• #3

Re : changer la couleur d'un label

Bonjour joss

J'ai utilisé ton code en modifiant backcolor par forecolor mais il renvoie tjs une couleur verte, meme si la valeur de la celulle excel est négative :s
If Val(tuy_fin1an_dn1) >= 0 Then
tuy_fin1an_dn1.ForeColor = RGB(0, 255, 0)
Else
tuy_fin1an_dn1.ForeColor = RGB(255, 0, 0)
End If

J'ai mis le code dans la Private Sub UserForm_Initialize().

c'est bizard qd meme 🙁

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 23 Janvier 2012

• #4

Re : changer la couleur d'un label

bonjour tous🙂 a adapter

Private Sub CommandButton1_Click()
Label1.ForeColor = IIf(CDbl(Label1 >= 0), &H80FF80, &HFF&)
End Sub

Cliquez pour agrandir...

ps .caption pas utile

 

Dernière édition: 23 Janvier 2012

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 23 Janvier 2012

• #5

Re : changer la couleur d'un label

Peux tu envoyer un "bout" de fichier dans donner confidentielles?

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 23 Janvier 2012

• #6

Re : changer la couleur d'un label

sans données...oups!

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 23 Janvier 2012

• #7

Re : changer la couleur d'un label

re ,effectivement sans voir ton code comme le dit l'ami joss🙂 pas simple
si tu le met dans initialise cela reste "fige" si la valeur de ton label change quand tu modifie un textbox par exemple le code il faut le mettre dans l'evenement change du textbox ect...

 

Vote positif 0 Vote négatif

S

serval

XLDnaute Occasionnel

• 23 Janvier 2012

• #8

Re : changer la couleur d'un label

re a tous les 2,

Laetitia, j'ai utilisé la ligne de code tuy_fin1an_dn1.ForeColor = IIf(CDbl(tuy_fin1an_dn1 >= 0), &H80FF80, &HFF&) que j'ai mise dans la Private Sub UserForm_Initialize() et ca ne fonctionne pas.
dans ton exemple, tu lances le code si on clique sur un bouton, or dans mon cas, je ne clique par sur un bouton :s

@ joss: pour le code, pas évident car il est super long :s:s:s

PS: je viens de mettre le code dans la Private Sub CommandButton1_Click() et ce ne fonctionne pas non plus, c'est toujours en vert 🙁

 

Dernière édition: 23 Janvier 2012

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 23 Janvier 2012

• #9

Re : changer la couleur d'un label

re comme dit plus haut a quel moment tu changes la valeur du label😡

 

Vote positif 0 Vote négatif

S

serval

XLDnaute Occasionnel

• 23 Janvier 2012

• #10

Re : changer la couleur d'un label

je viens de mettre les codes dans Private Sub CommandButton1_Click().

Je clique sur le bouton et la sub va chercher la valeur dans une feuille excel. c'est à ce moment là que le label affiche la valeur de la cellule

 

Vote positif 0 Vote négatif

S

serval

XLDnaute Occasionnel

• 23 Janvier 2012

• #11

Re : changer la couleur d'un label

CA MARCHEEEEEEEEEEEEE

j'avais mis les codes dans le debut de la Private Sub CommandButton1_Click(). Bien évidemment, la valeur du label n'etait pas encore "remonté" par la macro!!!! en mettant les codes à la fin de la sub, ca va tout de suite mieux!!!!!!!!!!

merci de votre aide et dsl de ne pas avoir percuté plus tot!!!!
FAb

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 23 Janvier 2012

• #12

Re : changer la couleur d'un label

re, eh ben!!! tu vois quand tu veus😀

 

Vote positif 0 Vote négatif