Format monétaire

[Luc]

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]

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]

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]

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]

Bonjour le forum, Michel, Didier,

Le tout fonctionne merveilleusement bien.

Merci beaucoup.