Bonjour febfeb, le forum,
lorsque que le résultat est négatif dans txtebox6 un Msgbox "pas de valeur négative possible" apparait et l'entrée est annulé
A tester:
Private Sub CommandButton5_Click()
If TextBox6.Value < 0 Then
MsgBox "pas de valeur négative possible"
TextBox6.Value = ""
Exit Sub
End If
End Sub
Cordialement,