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.