Problème d'arrondi de ma listbox

[Pi.3]

bonjour a tous, je vien de réaliser un projet sur excel avec VBA qui me permet de calculer les montant des annuités et le montant du remboursement d'un pret.Le problème que je rencontre, est que quand j'appuie sur calacul, la list box se rempli automatiquement des valeur. mais je souhaiterai n'avoir que 2 décoimale.

Je vous joint mon fichier en oièce jointe.

Merci par avance de votre aide

 

[jp14]

Re : Problème d'arrondi de ma listbox

Bonjour

Ci dessous le code à écrire.

With Me.ListView1
    For L = 1 To UBound(Plg, 1)
     i = .ListItems.Count + 1
        .ListItems.Add = Plg(L, 1)
    For C = 2 To UBound(Plg, 2)
        .ListItems(i).ListSubItems.Add = Format(Plg(L, C), "##,##0.00")
    Next C
    Next L
End With

JP

 

[Excel_lent]

Re : Problème d'arrondi de ma listbox

Salut à tous,


rajoute :Range("B6:F" & .Range("A65536").End(xlUp).Row).NumberFormat = "0.00"

avant End With dans le paragraphe :

With Sheets("Plan de remboursement")
Plg = .Range("A6:F" & .Range("A65536").End(xlUp).Row)
End With

@+

 

[Pi.3]

Re : Problème d'arrondi de ma listbox

Merci a vous deux pour votre aide,
J'ai essayé la solution de JP14 qui fonctionne très bien.

Bonne soirée