Discussion :

[melouille56]

Bonsoir,

J'ai 24 TextBox dans mon Userform, dans lesquelles je rentre des montants (je les ai donc appelées "Amount1" jusqu'à "Amount24" pour pouvoir faire des boucles".
Cependant, je voudrais qu'à chaque saisie le format du nombre entré soit modifié.

Pour se faire, j'ai un code pour chaque du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Amount1_AfterUpdate()
 
...
 
Controls("Amount1").value = Format(Controls("Amount1").value, "# ##0.00")
 
...
 
End Sub

Sauf que j'en ai 24, et que mon code est bien plus long que la ligne que je viens de mettre en exemple.

Est-il possible de faire un seul code, qui prendrait en compte les modifications de AfterUpdate pour toutes les TextBox de mon UserForm ?

Merci d'avance.

[Qwazerty]

SAlut
Fais simplement une fonction a laquelle tu transmet le nom de ton TextBox (ou ton textBox lui meme)
Ainsi tu aura dans chaque TextBox une seul ligne qui appelle ta function

Ex

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
Private Sub Amount1_AfterUpdate()
 
FormatTextBox ("Amount1")
 
End Sub
Private Sub Amount2_AfterUpdate()
 
FormatTextBox ("Amount2")
 
End Sub
Private Sub Amountx_AfterUpdate()
 
FormatTextBox ("Amountx")
 
End Sub
 
Function FormatTextBox(Sender As String)
 
Controls(Sender).Value = Format(Controls(Sender).Value, "# ##0.00")
 
End Function

A++
Qwaz

[melouille56]

Super, c'est trop bien. Merci 1000 fois. J'commencais à ne plus y voir clair avec toutes ces lignes.
a+

[Qwazerty]

Tu m'etonnes

A++
Qwaz