Microsoft 365 Boucle FOR

job75

XLDnaute Barbatruc

• 4 Août 2023

• #2

Bonjour Electron24,

VB:

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+

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 4 Août 2023

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Août 2023

• #4

Electron24 à dit:

Donc si je comprends bien , on formate aussi i.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 4 Août 2023

• #5

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

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 4 Août 2023

• #6

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)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Août 2023

• #7

Dans UserForm_Initialize ceci va bien :

VB:

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.

 

Vote positif 0 Vote négatif

Solution

Electron24

XLDnaute Occasionnel

• 4 Août 2023

• #8

Super mille merci

 

Vote positif 0 Vote négatif