Bonsoir à tous,

Depuis plusieurs jours je n'arrive pas à appliquer ce code "qui empêche la saisie des lettres" pour plusieurs autres textbox que comporte mon userform. Pour l'instant je suis obliger d'utiliser ce code pour chaque textbox ce qui rend le programme tres long (j'ai environ 80 textbox). Merci d'avance à ceux qui pourront m'aiguiller j'ai vraiment du mal.
Ci dessous le programme


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
         KeyAscii = 0
     End If
 End Sub
Merci d'avance