XL 2010 Coup de pouce pour format textbox

TOINE38 · 30 Septembre 2018

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) · 30 Septembre 2018

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 · 30 Septembre 2018

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

XL 2010 Coup de pouce pour format textbox

TOINE38

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

TOINE38

XLDnaute Occasionnel

Discussions similaires