MuscatMimi
XLDnaute Accro
Bonsoir le Forum
Dans le Code ci-dessous,ligne
j'aimerais pouvoir attribuer un format euros type "12,50 €"
Merci a l'avance
Cordialement
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