Problème avec les valeurs décimales dans une Listview

[Chrige]

Bonjour

J’ai un problème dans ma ListView avec les valeurs décimales
Même si à la base, dans Excel, elles sont bien formatées
Ce formatage n’est pas importé dans la ListView
Il en va de même lorsque ces valeurs viennent s’inscrire dans la feuille
J’ai bien trouvé ce genre de problème sur le Net, mais je n’arrive vraiment pas à l’adapter à ma ListView

Private Sub UserForm_Initialize()
  Dim C As Range
      With Lv
        With .ColumnHeaders
            .Clear
            .Add , , "Code", 30
            .Add , , "Définition", 130
            .Add , , "Montant", 50
        End With
       End With
  For Each C In Feuil4.Range("A1", Feuil4.[A65000].End(xlUp)(1))
    Lv.ListItems.Add , , C
    Lv.ListItems(Lv.ListItems.Count).ForeColor = C.Interior.Color
    Lv.ListItems(Lv.ListItems.Count).ListSubItems.Add , , C(1, 2)
    Lv.ListItems(Lv.ListItems.Count).ListSubItems(1).ForeColor = C.Interior.Color
    Lv.ListItems(Lv.ListItems.Count).ListSubItems.Add , , C(1, 3)
    Lv.ListItems(Lv.ListItems.Count).ListSubItems(2).ForeColor = C.Interior.Color
        
  Next
End Sub

Merci d'avance pour votre aide
A+

 

[Staple1600]

Re : Problème avec les valeurs décimales dans une Listview

Bonjour à tous

Chrige
Avec cette modif , tu auras les décimales

Private Sub UserForm_Initialize()
  Dim C As Range
      With Lv
        With .ColumnHeaders
            .Clear
            .Add , , "Code", 30
            .Add , , "Définition", 130
            .Add , , "Montant", 50
        End With
       End With
  For Each C In Feuil4.Range("A1", Feuil4.[A65000].End(xlUp)(1))
    Lv.ListItems.Add , , C
    Lv.ListItems(Lv.ListItems.Count).ForeColor = C.Interior.Color
    Lv.ListItems(Lv.ListItems.Count).ListSubItems.Add , , C(1, 2)
    Lv.ListItems(Lv.ListItems.Count).ListSubItems(1).ForeColor = C.Interior.Color
    Lv.ListItems(Lv.ListItems.Count).ListSubItems.Add , , Format(C(1, 3), "0.00")
    Lv.ListItems(Lv.ListItems.Count).ListSubItems(2).ForeColor = C.Interior.Color
        
  Next
End Sub

 

[Chrige]

Re : Problème avec les valeurs décimales dans une Listview

Bonjour Staple

Je savais que cela ce jouait là
Mais je suis passé lamentablement à côté !
Et pourtant j'ai cherché ...

Merci beaucoup
A+

 

[Staple1600]

Re : Problème avec les valeurs décimales dans une Listview

Re

Chrige
L'essentiel c'est d'avoir cherché et d'avoir les mains pleines de cambouis