quel code vb

[dindin]

Bonjour à tous
Comment faire pour remplacer 36 lignes de code par quelques lignes .
le code exige la mise en forme monétaire dans les 36 textbox de l'userform.

TextBox1.Value = Format(TextBox1.Value, "# ###.00 €")
........
........
........
TextBox36.Value = Format(TextBox36.Value, "# ###.00 €")

cordialement

 

[néné06]

Re : quel code vb

Bonsoir dindin

Peut-être comme ceci ?

A essayer?

For i = 1 to 36
Me("TextBox" & i).Value = Format (Me("TextBox" & i).Value, "# ###.00 €")
next i

A+

 

[Gareth]

Re : quel code vb

Bonsoir,

Plutot comme ça :

Sub Test()
For i = 1 To 36
    Me.Controls("TextBox" & i).Value = Format(Me.Controls("TextBox" & i).Value, "# ###.00 €")
Next i
End Sub

Non ?

 

[dindin]

Re : quel code vb

Bonsoir dindin

Peut-être comme ceci ?

A essayer?

For i = 1 to 36
Me("TextBox" & i).Value = Format (Me("TextBox" & i).Value, "# ###.00 €")
next i

A+

Merci pour ton code mais il m affiche une erreur d incompatibilité de type

 

[Gareth]

Re : quel code vb

Bonjour,

As-tu essayé ma version ?

 

[dindin]

Re : quel code vb

merci Gareth
ton code fonctionne bien.
je te remercie.
l'affaire est résolue.

 

[Staple1600]

Re : quel code vb

Bonsoir à tous


Le code de Gareth ... avec des endives 😉

Sub Test()
Dim i As Byte
For i = 1 To 36
    With Me.Controls("TextBox" & i)
        .Value = Format(.Text, "# ###.00 €")
    End With
Next i
End Sub