Répétition du code autorisant la saisie de nombre entier

Bonjour,

j ai ce code pour n'autoriser que la saisie de nombres entier positifs

j ai 7 Textbox dans le formulaire

faut il que je répète 7 fois ce code ?

merci pour votre aide

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'n'autorise pas les nombres décimaux ou négatifs

Select Case KeyAscii
Case Is < 48, Is > 57
MsgBox "Entrez un nombre entier positif"
KeyAscii = 0
End Select
End Sub

Bonjour,

tu peux éviter la répétition du code en utilisant les modules de classe.

bonsoir

merci pour le tuyau ...

Je n ai jamais utilisé les modules de classes mais je vais fouiner un peu sur le forum pour tenter de m en sortir

et en cas de difficultés je reviendrai vers vous

voici un exemple

15classtextbox.xlsm (17.39 Ko)

Bonjour

je t avoue que j ai tenté de trouver la manière de rédiger la procédure mais suis pas encore assez calé..

Mais je vais me pencher dans le détail sur ta solution pour comprendre

je te remercie infiniment pour ton aide et avec ta permission, je reviendrai vers toi si nécessaire

bonne journée

bonsoir h2so4

ton code fonctionne parfaitement et je te remercie pour ton aide

comme j avais aussi un code (répétitif) pour n'autoriser que des valeurs numériques dans les textbox je vais procéder de la même manière.

bonne soirée

Rechercher des sujets similaires à "repetition code autorisant saisie nombre entier"