Format Euros dans ListBox

[MuscatMimi]

Bonsoir le Forum

Dans le Code ci-dessous,ligne
j'aimerais pouvoir attribuer un format euros type "12,50 €"

Private Sub ComboBox5_Change() ''''OK
Dim j
Dim c
ListBox1.Visible = True
j = 0
Me.ListBox1.Clear
Me.ListBox1.ColumnCount = 4 '7
Me.ListBox1.ColumnWidths = "105;40;40;40" ';40;40;40"
With Sheets("Produits")
On Error Resume Next
For Each c In .Range("A2:A" & .Range("A65000").End(xlUp).Row)
If c = Me.ComboBox5 Then
Me.ListBox1.AddItem
Me.ListBox1.List(j, 0) = c.Offset(0, 1).Value
Me.ListBox1.List(j, 1) = c.Offset(0, 3).Value (Ici format euros)
Me.ListBox1.List(j, 2) = c.Offset(0, 6).Value
Me.ListBox1.List(j, 3) = c.Offset(0, 9).Value
'Me.ListBox1.List(j, 4) = c.Offset(0, 5).Value
' Me.ListBox1.List(j, 5) = c.Offset(0, 6).Value

j = j + 1
End If
Next c
End With
End Sub

Merci a l'avance

Cordialement

 

[kjin]

Re : Format Euros dans ListBox

Re bonjour (je t'ai laissé un message sur l'autre fil)

Me.ListBox1.List(j, 1) = Format(c.Offset(0, 3).Value, "0.00€")

A+
kjin

 

[MuscatMimi]

Re : Format Euros dans ListBox

re kjin

Mince j'en étais pas loin,
Merci de ta réponse
J'ai vu ta réponse sur l'autre fil

Bonne soirée