Format monétaire dans une liste box

[nrdz83]

Bonjour je cherche à appliquer ce format monétaire # ##0,00 € dans la quatrième colonne de ma listbox.
Dont le code pour l'alimenter est ci-dessous..

Private Sub UserForm_Initialize()

Dim derlig As Long, tbl

With Worksheets("Composition radeau")
    derlig = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    tbl = .Range("A3:E" & derlig)
End With
With Me.ListBox1
    .ColumnCount = 5
    .ColumnWidths = "110;210;60;60;80"
    .List = tbl
End With
End Sub

Comment dois -je procéder?

par avance merci pour vos lumières amitiés

 

[Papou-net]

Re : Format monétaire dans une liste box

Bonjour nrdz83,

Comme ceci peut-être ?

Private Sub UserForm_Initialize()
Dim derlig As Long, tbl

With Worksheets("Composition radeau")
    derlig = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
    tbl = .Range("A3:E" & derlig)
End With
With Me.ListBox1
    .ColumnCount = 5
    .ColumnWidths = "110;210;60;60;80"
    .List = tbl
    For i = 0 To .ListCount - 1
      For c = 0 To 4
        .List(i, c) = Format(CDbl(.List(i, c)), "0.00 €")
      Next
    Next
End With
End Sub

Cordialement.

 

[nrdz83]

Re : Format monétaire dans une liste box

Bonjour papou net

joli icone lol

merci pour ton code, ça me met variable non défini
comment dois-je définir cette variable? merci d'avance

 

[frangy]

Re : Format monétaire dans une liste box

Bonjour nrdz83, papou-net, le forum,

Si j'ai bien compris, le format ne doit être appliqué que sur la 4eme colonne.

    For i = 0 To .ListCount - 1
        .List(i, 3) = Format(CDbl(.List(i, 3)), "0.00 €")
    Next

Cordialement.

 

[eriiic]

Re : Format monétaire dans une liste box

Bonjour,

ça me met variable non défini

Ajouter dim i as long
Pareil pour c si tu le conserves.

eric

 

[nrdz83]

Re : [RESOLU]Format monétaire dans une liste box

Super merci à tous , un trés bon week end amitiés🙁

 

[Papou-net]

Re : Format monétaire dans une liste box

Bonjour papou net

joli icone lol

merci pour ton code, ça me met variable non défini
comment dois-je définir cette variable? merci d'avance

RE nrdz83,

Pour les variables, Frangy et Eric, que je salue au passage, ont déjà répondu. Je n'avais pas vu que Option Explicit était actif sinon je les aurais déclarées.

Concernant l'icône (mon avatar je suppose) ton compliment me touche mais je me dois de rétablir la vérité. Je n'en suis pas l'auteur, c'est Carcharodon-Carcharias qui me l'a proposée, et comme elle m'a plue je l'ai adoptée.

J'en profite également pour saluer CC que je n'ai pas croisé sur le fil depuis un moment.

Cordialement.