Module de Classe pour controle textbox
Bonjour à tous,
J'ai des codes qui fonctionnent mais me parraissent trop long. Je voudrai les simplifier via un module de classe mais je ne sais pas très bien comment ça fonctionne. J'ai cherché sur le net et je n'ai rien trouvé comme explication "claire" pour que je m'y mette tout seul.
Dans mon code je formate mes textbox de sorte qu'ils affichent les nombre au format "#,##0.00". Le problème est que j'ai plus de 50 textbox et c'est vraiment long et lourd.
Quelqu'un pourrrait-il m'aider ?
voici une partie de mon code
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
|
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox2 = Format(TextBox2, "#,##0.00")
End Sub
Private Sub TextBox3_AfterUpdate()
TextBox3 = Format(TextBox3, "#,##0.00")
End Sub
Private Sub TextBox4_AfterUpdate()
TextBox4 = Format(TextBox4, "#,##0.00")
End Sub
Private Sub TextBox5_AfterUpdate()
TextBox5 = Format(TextBox5, "#,##0.00")
End Sub
Private Sub TextBox6_AfterUpdate()
TextBox6 = Format(TextBox6, "#,##0.00")
End Sub
Private Sub TextBox7_AfterUpdate()
TextBox7 = Format(TextBox7, "#,##0.00")
End Sub
Private Sub TextBox8_AfterUpdate()
TextBox8 = Format(TextBox8, "#,##0.00")
End Sub
Private Sub TextBox9_AfterUpdate()
TextBox9 = Format(TextBox9, "#,##0.00")
End Sub
Private Sub TextBox10_AfterUpdate()
TextBox10 = Format(TextBox10, "#,##0.00")
End Sub |
Merci d'avance.
Rasta Bomboclat