مشكور اخي أبو اسامة
و اثناء تجوالي في أحد المنتديات الفرنسية وجدت هذا الكود وقعت على هذا الكود.
Private Sub TextBox6_Change()
Select Case Len(TextBox6)
Case 2, 5
TextBox6 = TextBox6 & "/"
End Select
End Sub
Private Sub TextBox6_Enter()
TextBox6.Text = ""
End Sub
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox6.Text = Format(TextBox6.Text, "dd/mm/yyyy")
End Sub
Private Sub TextBox7_Change()
Select Case Len(TextBox7)
Case 2, 5
TextBox7 = TextBox7 & "/"
End Select
End Sub
و إلك المرفق أيضا.
جزاك الله خيرا
Classeur1.rar