LabInfo.Caption = Valeur
LabInfo.ForeColor = Choose(Sgn(Valeur) + 2, &HFF&, &HFF0000, 0&)
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
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