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 Sub
N'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