'Valeurs Hors Tolérances Orbit
If Val(ComboBox3) = "15HP" Then Val (TextBox6) < 13.03
Select Case MsgBox("LARGEUR SLOT ORBIT MINI ou HORS TOLERANCE ! :" & TextBox6 _
& vbCrLf & "" _
& vbCrLf & "Pour Continuer Cliquer sur OK pour Modifier Cliquer sur Cancel" _
, vbOKCancel Or vbExclamation Or vbDefaultButton1, Application.Name)
Case vbOK
Case vbCancel
With TextBox6
.Value = ""
.SetFocus
End With
Exit Sub
End Select
End If