XL 2010 Coup de pouce pour format textbox

[TOINE38]

Bonjour a tous,

Pas très expert en la matière, j'aurais besoin d'un petit coup de pouce pour créer un code qui me permettra de mettre tous mes textbox au format "0.00".
J'au un code qui marche bien :
Textbox_1 = Range("J3")
Textbox_1 = Format(Textbox_1.Value, "0.00")

Ayant 18 Textbox, je souhaiterais savoir si il n'y aurais pas un moyen plus simple que de recopier 18 fois
Textbox_x = Format( Tetxbox_x, "0.00")

Merci d'avance

cordialement

toine 38

 

[youky(BJ)]

Bonjour Toin,
Perso je ne renomme pas les objets donc exemple ici TextBox1 > TextBox2
il faut faire une boucle (ici 18 est le nombre de textbox)

For k =1 to 18
Controls("TextBox" & k)=Format(Controls("TextBox" & k).Value, "0.00")
Next

Bruno

 

[TOINE38]

bonsoir Youky

Merci pour ta réponse, c'est un fait que je n'y arrivais pas malgré les essais de boucle que j'essayais de faire.
Ta remarque sur le nom des textbox m'a beaucoup aidé et cela fonctionne à merveille.

Mille merci pour ta réponse.

bonne fin de weekend

toine38