السلام عليكم اخي ابو حنين عندي كود اريد اضافة له فورمة رقمين بعد الفاصلة
هذا هو الكوود
Public Sub lesplace()
Dim c, t, tt
plac.Clear
With Feuil5.Range("a:a")
Set c = .Find(prod, LookIn:=xlValues)
If Not c Is Nothing Then
t = c.Row
Do
If .Cells(c.Row, 1) = prod Then
plac.AddItem .Cells(c.Row, 4)
plac.List(plac.ListCount - 1, 1) = .Cells(c.Row, 3)
plac.List(plac.ListCount - 1, 2) = c.Row
End If
Set c = .FindNext©
Loop While Not c Is Nothing And c.Row <> t
End If
End With
End Sub
اريد وضع الفورمة في هذا السطر
plac.AddItem .Cells(c.Row, 4)
بهذا الفورم
, "#,##0.00"
وجزاك الله خيرا اخي ابو حنين