السلام عليكم
قم بنسخ هذا الكود كما هو
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Val(TextBox7.Value) < Val(TextBox5.Value) Then
MsgBox "La quantité n'est pas disponible", vbExclamation, "ERREUR"
TextBox5 = "": Cancel = True
End If
End Sub