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
Merci d'avance.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
Rasta Bomboclat
