Discussion :

[RastaBomboclat]

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

[kiki29]

Salut, regarde ici

[RastaBomboclat]

Bonsoir,

Merci Marc-L pour la remarque. Mais de peur de "multiposter", et que ceci m'arrive , je vais attendre que les admin du forum deplace mon post vers le salon adéquat.

Merci Kiki, je vais tester le lien que tu m'as envoyé.


Cordialement,

Rasta Bomboclat

[RastaBomboclat]

Bonsoir,

Le lien que Kiki m'a envoyé est fort intérressant, et je vais l'exploiter sur un autre formulaire.
Mais je continue encore avec ma préocupation puisque le formulaire sur le quel je travaille ne me sert que de d'etat(juste pour afficher un rapport). Il n'y qu'un seul textbox où l'utilisateur va saisir une donnée(période à reporter) et le rapport s'affichera sur les autres textbox. La methode onkeypress ne s'y applique pas. J'ai essayé d'adapter la methode afterupdate, mais je me mêle les pinceaux. S'il y a une autre solution mieux adapté à mon cas, merci de bien vouloir me la montrer.

Cordialement,

Rasta Bomboclat