quel code vb

néné06

XLDnaute Accro

• 11 Décembre 2012

• #2

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+

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 12 Décembre 2012

• #3

Re : quel code vb

Bonsoir,

Plutot comme ça :

Code:

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

Non ?

 

Vote positif 0 Vote négatif

dindin

XLDnaute Occasionnel

• 12 Décembre 2012

• #4

Re : quel code vb

néné06 à dit:

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 12 Décembre 2012

• #5

Re : quel code vb

Bonjour,

As-tu essayé ma version ?

 

Vote positif 0 Vote négatif

dindin

XLDnaute Occasionnel

• 12 Décembre 2012

• #6

Re : quel code vb

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Décembre 2012

• #7

Re : quel code vb

Bonsoir à tous


Le code de Gareth ... avec des endives 😉

Code:

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

 

Vote positif 0 Vote négatif