Modif format nombre pour 24 TextBox

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:

---

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.

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:

---

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

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

Tu m'etonnes :):mouarf3:

A++
Qwaz