Limite dans textbox

Bonjour,

dans un formulaire, je limite la saisie de chiffres dans un textbox:

Private Sub TextBox_Tel_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
MsgBox "Veuillez entrer un nombre !"
End If
End Sub

Mais j'ai une dizaine de textbox à qui je souhaiterais appliquer la même limite.

Y-a-t-il une solution "globale" plutôt que d'appliquer le code à chaque textbox une par une et ce pour d'alléger le code

général ?

Merci de votre aide.

Bonsoir patrick33, le forum,

C'est possible avec un module de classe.....

Un exemple ici...

Cordialement,