XL 2010 couleur chiffre label

Dranreb

XLDnaute Barbatruc

• 6 Janvier 2018

• #2

Bonsoir.

VB:

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

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 6 Janvier 2018

• #3

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

 

Pièces jointes

• Points-Tarot.xlsm

  43.6 KB · Affichages: 17

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Janvier 2018

• #4

Dans la ComboBox3_Change je suppose.

VB:

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Janvier 2018

• #5

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é.

VB:

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

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 6 Janvier 2018

• #6

Bonsoir Dranreb

Merci beaucoup cela fonctionne

Bonne soirée à tous

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 9 Mars 2018

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Mars 2018

• #8

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

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 10 Mars 2018

• #9

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

Bonne soirée à tous

 

Vote positif 0 Vote négatif