Private Sub Valider_Click()
Me.Height = 418.5
TxtResultat.Visible = True
TxtResultat.Value = Range("calcul!F6").Value
If TxtResultat.Value = "Hors zone" Then
TxtResultat.ForeColor = RGB(0, 255, 0)
End If
If TxtResultat.Value = "Zone de photothérapie" Then
TxtResultat.ForeColor = RGB(0, 0, 255)
End If
If TxtResultat.Value = "Zone indefinie" Then
TxtResultat.ForeColor = RGB(255, 0, 255)
End If
If TxtResultat.Value = "Zone d'exsanguinotransfusion" Then
TxtResultat.ForeColor = RGB(255, 0, 0)
End If
'InitialiseChart2
End Sub