Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

[Chrige]

Bonjour à tous

J'ai un problème avec mes valeurs décimales dans mon ListView
J'arrive bien à paramétrer mes valeur avec 2 chiffres après le séparateur décimal
Mais du coup je transforme ma valeur décimale d’origine en valeur texte avec une virgule au lieu du point .

Exemple Origine : 5.45 devient dans mon ListView 5,45

Je n'arrive pas à trouver la solution
Un petit coup de main et une explication sur mon erreur ne serait pas de refus

Merci

 

[Papou-net]

Re : Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

Bonsoir Chrige,

Vérifie en modifiant ton code comme ceci:

Private Sub Lv_ItemClick(ByVal li As MSComctlLib.ListItem)
  With ActiveCell.Resize(1, 2)
    If li = "" Then
      .Interior.ColorIndex = xlNone 'à connaître aussi
      .Value = ""
    Else
      .Interior.Color = Lv.ListItems(li.Index).ForeColor
      ActiveCell = li
      .Interior.Color = Lv.ListItems(li.Index).ForeColor
      If Not Lv.ListItems(li.Index).ListSubItems(2) = "" Then
        ActiveCell(1, 3).NumberFormat = "0.00"
        ActiveCell(1, 3) = CDbl(Lv.ListItems(li.Index).ListSubItems(2))
      End If
    End If
  End With
  ActiveCell(1, 3).Select
  Unload Me
End Sub

Cordialement.

 

[ChTi160]

Re : Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

Bonjour Chrige
Bonjour le fil
Bonjour le Forum
je ne suis pas sur d'avoir compris ou se trouve le Problème dans la ListView ou lors du transfert dans la feuille ???

ci dessous le code qui met en forme les données dans la ListView: "Un point au lieu d'une Virgule"

                 Private Sub UserForm_Initialize()
  Dim C As Range
  Dim LstVitem As Object
  Dim LstVSitem As Object
  Dim Ws As Worksheet
  Dim DerLgn As Integer
      With Lv
        With .ColumnHeaders
            .Clear
            .Add , , "Code", 30
            .Add , , "Définition", 130
            .Add , , "Montant", 50, lvwColumnRight
        End With
            .Gridlines = True
            .FullRowSelect = True
            .View = lvwReport
       End With
Set Ws = Worksheets("Tableau")
DerLgn = Ws.Cells(Ws.Rows.Count, 1).End(xlUp).Row - 1
  For Lgn = 1 To DerLgn
   With Lv
    Set LstVitem = .ListItems.Add(, , Ws.Cells(Lgn, 1).Value)
     With LstVitem
                        .ForeColor = Ws.Cells(Lgn, 1).Interior.Color
        Set LstVSitem = .ListSubItems.Add(, , Ws.Cells(Lgn, 2).Value)
            With LstVSitem
                        .ForeColor = Ws.Cells(Lgn, 1).Interior.Color
            End With
        Set LstVSitem = .ListSubItems.Add(, , Application.Substitute(Format(CDbl(Ws.Cells(Lgn, 3).Value), "0.00"), ",", "."))
            With LstVSitem
                        .ForeColor = Ws.Cells(Lgn, 3).Interior.Color
            End With
            
     End With
     End With
    Next
      Set LstVitem = Nothing
      Set LstVSitem = Nothing
End Sub

Bonne journée
Amicalement
Jean Marie

 

[Si...]

Re : Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

salut

avec la fonction "Replace"

'ici........
Lv.ListItems(Lv.ListItems.Count).ListSubItems.Add , , Replace(Format(C(1, 3), "0.00"), ",", ".")

 'et là ....
ActiveCell(1, 3) = Replace(Lv.ListItems(li.Index).ListSubItems(2), ".", ",")

pour l'aller et le retour.

 

[Chrige]

Re : Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

Bonjour à tous

Je vois que j'ai reçu plusieurs solutions
Je commence par la 1ère

Bonjour Papou-Net

Ta méthode est très bien, mais comme je souhaitais aussi avoir un point au lieu de la virgule dans mon ListView
J'ai rajouté dans mon initialisation

Lv.ListItems(Lv.ListItems.Count).ListSubItems.Add , , Replace(Format(C(1, 3), "0.00"), ",", ".")

Puis j'ai repris ton code en supprimant la fonction "CDbl"

      If Not Lv.ListItems(li.Index).ListSubItems(2) = "" Then
        ActiveCell(1, 3).NumberFormat = "0.00"
        ActiveCell(1, 3) = (Lv.ListItems(li.Index).ListSubItems(2))
      End If

Comme cela c'est parfait
Merci beaucoup



------------------------

Bonjour ChTi160

Je vois que c'est une technique différente, mais peut être un peu plus compliquée
Elle fonctionne parfaitement
L'avantage c'est que tout se ce passe au niveau de l'initialisation
Cependant du coup il faudrait faire un complément car on se retrouve avec des 0 lorsqu'il n'y a pas de nombre.

Merci aussi pour ton aide

------------------------

Bonjour Si

Je comprends bien la première ligne puisque j'y avais pensé moi-même
Je pensais ma solution tordue, mais puisque tu me la propose aussi
Je vais me faire de l'autosatisfaction d'avoir eu une idée censée

Par contre , je ne comprends pas le sens de

ActiveCell(1, 3) = Replace(Lv.ListItems(li.Index).ListSubItems(2), ".", ",")

??

Merci pour ton aide

 

[ChTi160]

Re : Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

Bonjour Chrige
bonjour le fil
Bonjour le Forum

voila ce que j'ai modifié pour ne plus afficher les Valeurs Nulles(Vides)

With LstVSitem
                        .ForeColor = Ws.Cells(Lgn, 1).Interior.Color
            End With
        Set LstVSitem = .ListSubItems.Add(, , IIf(Ws.Cells(Lgn, 3).Value <> "", _
                         Application.Substitute(Format(CDbl(Ws.Cells(Lgn, 3).Value), "0.00"), ",", "."), "")) 'Dans cette Ligne un test IIf
            With LstVSitem
                        .ForeColor = Ws.Cells(Lgn, 3).Interior.Color
            End With

Bonne Journée
Amicalement
Jean Marie

 

[Chrige]

Re : Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

Bonjour ChTi160, Bonjour à tous

J'ai un problème avec le code
Pourrais-tu me renvoyer le code complet
Car pour moi cela bloque au niveau de

Set LstVSitem = .ListSubItems.Add(, , IIf(Ws.Cells(Lgn, 3).Value <> "", _
                         Application.Substitute(Format(CDbl(Ws.Cells(Lgn, 3).Value), "0.00"), ",", "."), "")) 'Dans cette Ligne un test IIf
           With LstVSitem

Erreur de compilation
Membre de méthode ou de données introuvables

Merci
A+

 

[Si...]

Re : Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

Salut

...
Par contre , je ne comprends pas le sens de

ActiveCell(1, 3) = Replace(Lv.ListItems(li.Index).ListSubItems(2), ".", ",")

??

sans cette ligne, tu as en retour un affichage avec le "." or il semble que sur ton onglet tu veuilles garder la "," !

 

[Chrige]

Re : Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

Bonjour Si, Chti160, Papou.net

Merci pour ta réponse Si
Mais non je ne souhaitais pas garder du tout de ","
La 1ère ligne me suffisait
Mais merci quand même, cela aurait pu être le cas.

A+

 

[ChTi160]

Re : Valeur décimale dans un ListView avec 2 chiffres après le séparateur décimal

Bonjour Chrige, le Fil
Bonjour le Forum

le fichier sur lequel j'ai travaille

Le Fichier : Regarde la pièce jointe Chti160 LstV et Décimales.xlsm

Bonne journée
Amicalement
Jean marie