simplify code VBA

[nizar2016]

Hello;
my problem is that I have a userform with several textbox( CA1....CA13 ; CHA1...CHA13; EMT1...EMT13; C1....C13; AL1...AL13; I want my textbox accepts only numeric values.
i have this code but i want simplify this code and don't repeat every textbox:

Private Sub CA1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  ' Si la valeur n'est pas comprise entre 0 et 9 et qu'elle n'est pas un backspace
 If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
    KeyAscii = 0 'on annule la pression sur la touche
 End If
End Sub

[jaslake]

Hi nizar2016

Check out this Link...need help adapting let me know.

http://www.ozgrid.com/forum/showthread.php?t=80631

[gbeats101]

Nice example, i didnt realize it was that simple to do , i always hated having to manually add code to each control haha......

[nizar2016]

Thank youu"jaslake " good exemple

[jaslake]

You're welcome...glad I could help.

If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.