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 : Sélectionner tout - Visualiser dans une fenêtre à part
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