Microsoft 365 Boucle FOR

[Electron24]

Bonjour le Forum,

J'ai un souci avec une boucle FOR
Dans un formulaire, j'ai 21 TxtBox nommées T_01 à T_21)
J'ai dans l'initialisation de mon formulaire la formule suivante :

dim i as string

For i= 01 to 21
T_i=(Format(T_i, "0.00 €")
Next i

Et cela ne marche pas . Je ne comprends pas le pourquoi

 

[job75]

Bonjour Electron24,

Dim i As Byte
For i = 1 To 21
Me("T_" & Format(i, "00")) = Format(Me("T_" & Format(i, "00")), "0.00 €")
Next i

A+

 

[Electron24]

Bonjour Job75
Çà fonctionne. Je ne pensais pas à une formule de la sorte. Donc si je comprends bien , on formate aussi i.

 

[job75]

Donc si je comprends bien , on formate aussi i.

Bien sûr car il faut obtenir 01, 02...

 

[Electron24]

Ok, c'est pour cela que je n'y arrivais pas encore un grand merci
Bon week end à vous

 

[Electron24]

Je reviens vers vous, car en poursuivant mon travail je m'aperçois que cela ne fonctionne pas tout à fait correctement.
J'ai à la suite des 21 Txtbox (T_01 à T21) un Txtbox nommé T_Total qui fait la somme des 21 TxtBox.
Il est formaté après UpDate par la formule T_Total =Format(T_Total, "0.00 €)
Le résultat me donne toujours des zéros après la virgule. (Ex: T_01 = 21.72 € + _02=12.55 € donne 33.00 €
bien que la formule est T_Total= CDbl(T_01) + CDbl(T_02) + CDbl(T_03) + CDbl(T_04) +...... + CDbl(T_21)

 

[job75]

Dans UserForm_Initialize ceci va bien :

Me("T_Total") = 0
For i = 1 To 21
    Me("T_Total") = Me("T_Total") + CDbl(Me("T_" & Format(i, "00")))
    Me("T_" & Format(i, "00")) = Format(Me("T_" & Format(i, "00")), "0.00 €")
Next i
Me("T_Total") = Format(Me("T_Total"), "0.00 €")

A condition que les valeurs des TextBox soient initialisées avec le séparateur décimal de l'ordi.

 

[Electron24]

Super mille merci