20 procédures identique pour 20 textbox - peut-on simplifier cela
Bonjour le forum,
Sur un userform, j'ai 20 textbox numérotées de 21 à 40; pour chacune de ces textbox, je désire imposer des chiffres et un format ../../..
Pour cela, j'ai deux procédures que j'utilise déja dans d'autres userform.
'-------------------------------------------
'Impose caractères numériques dans textbox21
'-------------------------------------------
Private Sub TextBox21_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
'-------------------------------------------
'Imposer le format 11/11/1111 dans textbox21
'-------------------------------------------
Private Sub TextBox21_Change()
Dim Valeur As Byte
TextBox21.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox21)
If Valeur = 2 Or Valeur = 5 Then TextBox21 = TextBox21 & "/"
End SubN'y aurait-il pas possibilité de réunir ces procédures afin de m'empêcher de devoir recopier 20 fois ces deux procédures?
En vous remerciant de l'aide que vous pourriez m'apporter,
Donpopo
Bonjour,
Une méthode possible est de passer par un module de classe.
Voici 2 démo de ce genre de méthode
Pierre
Bonjour,
de vos Textbox.
Si le control du contenu de vos texte box avait été effectué par exemple juste au moment de valider la saisie ; ce serait peut-être faisable
avec une boucle de valeur For i=21 to 40 ?
Hello Xmenpl,
Avec un module de classe ça passe tout seul!
Ici une des démo précédentes à peine modifiée =>
Bien vu Pierre !
Bonjour et merci pierreP56,
Apprenant petit à petit et grâce à vous tous, je fais la connaissance des modules de classe.
Je vais appliquer cela; mais je vais surtout étudier les modules de classe afin de comprendre ce que je fais.
A+