Private Sub CommandButton8_Click()
Dim Val_att, Val_lue, Seuil_haut, Seuil_bas As Single
Val_att = CSng(TextBox11.Value)
Val_lue = CSng(TextBox10.Value)
Tol_TM = CSng(TextBox4.Value)
Seuil_haut = Val_att + Tol_TM
Seuil_bas = Val_att - Tol_TM
If Val_lue <= Seuil_haut Or Val_lue >= Seuil_bas Then
MsgBox ("Ce n'est pas une panne => Incertitude chaine télémesure"), vbCriticalv
test = MsgBox("Voulez vous continuer quand même?", vbYesNo)
If test = vbYes Then
Frame4.Visible = True
ElseIf test = vbNo Then
Exit Sub
End If
Else
MsgBox ("Panne réelle"), vbExclamation
Frame4.Visible = True
End If
End Sub