XL 2010 couleur chiffre label

[Bruce68]

Bonjour à tous et meilleurs vœux pour 2018
Dans un Userform je voudrais mettre en couleur le chiffre en rouge quand il est négatif et en noir quand il est positif et ceci dans un Label.
quel code macro dois je utiliser?

Je vous remercie de votre aide

 

[Dranreb]

Bonsoir.

LabInfo.Caption = Valeur
LabInfo.ForeColor = Choose(Sgn(Valeur) + 2, &HFF&, &HFF0000, 0&)

 

[Bruce68]

Bonsoir Dranreb
Merci pour cette réponse, je ne vois pas comment mettre ce code dans la macro je joins le fichier .
Quand je clic sur calcul il faudrait que les labels en négatifs :les chiffres négatifs soient en rouge, en positifs en noir.
Merci pour l'aide

 

[Dranreb]

Dans la ComboBox3_Change je suppose.

Private Sub ComboBox3_Change()
Dim Ligne As Long, Valeur As Double
Ligne = ComboBox3.ListIndex + 2
Valeur = ActiveSheet.Cells(Ligne, "AB").Value
Label21.Caption = Valeur
Label21.ForeColor = Choose(Sgn(Valeur) + 2, &HFF&, &HFF0000, 0&)
Worksheets("Feuil1").Range("K7").Value = ComboBox3
End Sub

Conseil: mettez des noms mnémoniques à vos contrôles.

 

[Dranreb]

Ah non, je n'avais pas vu "Quand je clic sur calcul". Si le bouton s'était appelé CBnCalcul au lieu de CommandButton1, ça m'aurais mieux accroché.

Private Sub CommandButton1_Click()
ValLabSgn(Label25) = Cells(3, 12).Value 'preneur
ValLabSgn(Label26) = Cells(3, 13).Value 'partenaire
ValLabSgn(Label28) = Cells(4, 12).Value 'adversaire
End Sub
Private Property Let ValLabSgn(ByVal Lab As MSForms.Label, ByVal Valeur)
If VarType(Valeur) = vbDouble Then
   Lab.Caption = Valeur
   Lab.ForeColor = Choose(Sgn(Valeur) + 2, &HFF&, &HFF0000, 0&)
Else
   Lab.Caption = "???": Lab.ForeColor = &HFF&
   End If
End Property

 

[Bruce68]

Bonsoir Dranreb

Merci beaucoup cela fonctionne

Bonne soirée à tous

 

[Bruce68]

Bonsoir à tous
La macro ci dessous fonctionne très bien à condition de mettre Cells(2. 12) , si je remplace par des variables j' obtient que des ???
Est ce possible de mettre des variables ?
Je vous remercie de votre aide.

Private Sub CommandButton1_Click()
ValLabSgn(Label25) = Cells(3, 12).Value 'preneur
ValLabSgn(Label26) = Cells(3, 13).Value 'partenaire
ValLabSgn(Label28) = Cells(4, 12).Value 'adversaire
End Sub
Private Property Let ValLabSgn(ByVal Lab As MSForms.Label, ByVal Valeur)
If VarType(Valeur) = vbDouble Then
Lab.Caption = Valeur
Lab.ForeColor = Choose(Sgn(Valeur) + 2, &HFF&, &HFF0000, 0&)
Else
Lab.Caption = "???": Lab.ForeColor = &HFF&
End If
End Property

 

[Dranreb]

Bonsoir.
Oui c'est possible d'affecter des variables déclarées As Double à ValLabSgn(Label…).

 

[Bruce68]

Bonsoir Dranreb et le forum
Merci Dranreb c'est impeccable .

Bonne soirée à tous