السلام عليكم
قم بنسخ هذا الكود كما هو
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
السلام عليكم
اعتقد ان الارقام العربية او الهندية ليس لها علاقة بالكود بل لها علاقة باعدادات اللغة
فمثلا الرقم خمسة سواءا كتب بالعربية او غيرها فهذا لا يؤثر على عمل الكود