Format monétaire

Luc · 31 Octobre 2005

Bonjour le forum,

Dans le qui suit, j'essai d'afficher le format monétaire dans un listbox mais sans succès.

For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) = CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then

For N = 1 To 8
If tabtemp(O, N + 3) <> '' Then
Controls('ListBox' & N).AddItem tabtemp(O, N + 3)
End If
Next N
Me.ListBox5 = Format(Me.ListBox5, '# ##0.00')
Me.ListBox8 = Format(Me.ListBox8, '# ##0.00')
End If
Next O

Est-ce que quelqu'un aurait la solution ?

Merci

didier09 · 31 Octobre 2005

Bonsoir Luc,
Par format monétaire entends-tu l'ajout du symbole € ?
Si oui il te suffit de le rajouter dans ta ligne:
Me.ListBox5 = Format(Me.ListBox5, '# ##0.00 €')
Me.ListBox8 = Format(Me.ListBox8, '# ##0.00 €')
A+
Didier

Luc · 1 Novembre 2005

Bonne le forum, Didier09,

Non, le symbole est un oubli de ma part.

Je veux que dans mes listbox les données s'inscrivent 123.00 € et non 123.

Je ne sais pas où écrire les lignes de code pour avoir l'affichage désiré car j'ai 3 combobox comme évènement avant l'affichage.

Merci de ton aide
:unsure:

MichelXld · 1 Novembre 2005

bonjour Luc , bonjour Didier

je n'ai ps testé , mais tu pourrais essayer une synthaxe de ce style

For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) = CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then

For N = 1 To 8
If tabtemp(O, N + 3) <> '' Then
If N = 5 Or N = 8 Then
Controls('ListBox' & N).AddItem Format(tabtemp(O, N + 3), '# ##0.00 €')
Else
Controls('ListBox' & N).AddItem tabtemp(O, N + 3)
End If
End If
Next N
End If
Next O

bonne journée
MichelXld

Luc · 1 Novembre 2005

Bonjour le forum, Michel, Didier,

Le tout fonctionne merveilleusement bien.

Merci beaucoup.

Format monétaire

Luc

Guest

didier09

XLDnaute Occasionnel

Luc

Guest

MichelXld

XLDnaute Barbatruc

Luc

Guest

Discussions similaires