[déplacé VB6 - VBA] Macro en boucle format textbox

Question

Bonjour tout le monde, 

Je cherche une macro en boucle pour le format de 50 text box dans mon userform svp

voici ce que j'ai fais :

TextBox1.Value = Format(TextBox1.Value, "0.00%")
TextBox2.Value = Format(TextBox2.Value, "0.00%")
TextBox3.Value = Format(TextBox3.Value, "0.00%")
....et ainsi de suite mais ca prend du temps et ca alourdi le programme.

En vous remerciant d'avance

cs_cheyenne · Answer

Bonjour,

D'abord ce n'est pas Value qu'il faut utiliser mais Text.
Ensuite il est préférable de faire un groupe de contrôles et dans l'évènement LostFocus tu fais ton formatage.
Ou bien à un moment donné de ton programme, par exemple quand le dernier est rempli, tu fais une boucle qui les formate tous.

For i = 1 To 50
   TextBox(i).Text = Format$(TextBox(i).Text, "0.00%")
Nex i


Cheyenne

PCPT · Answer

salut,

cheyenne -> eh non, pas de groupe de contrôles en VBA

tarezini -> attention à la catégorie, tu es en VBA et non VB6 !! (d'où l'importance encore une fois de choisir sa catégorie)
je déplace....

en attendant voici un lien qui pourra t'inspirer
http://www.codyx.org/snippet_effacer-tous-textbox-userform_304.aspx#979

++ 

[hr]

cs_cheyenne · Answer

Bonsoir,

PCPT -> oui, tu as raison, mais vu que c'était classé en VB6...

Value aurait dû me mettre la puce à l'oreille, d'autant plus que j'ai fait la remarque à ce sujet ! Heureusement que tu veilles au grain...

Bonne soirée,

Cheyenne

tarezini · Answer

cheyenne, PCPT désolé j'ai pas fais attention, je tacherais a bien choisir le forum la prochaine fois.
Merci en tout cas pour votre aide.
j'ai pas eu le temps pour consulter le lien codyx....je reviendrais vers vous des que j'aurais consulté...
bonne journée et merci encore

[déplacé VB6 -> VBA] Macro en boucle format textbox

4 réponses

Votre réponse

Discussions similaires