Format € dans ListView

[Bruce68]

Bonsoir à tous
Est il possible de mettre le format monétaire ( € + 2 chiffres derrire la virgule) dans le resultat d'une ListView j'ai essayé ceci mais cela ne fonctionne pas Erreur 424.
Vous pouvez me dire ce qu'il faut mettre?
Je vous remercie de votre aide


ListView1.ListItems(LigList).ListSubItems.Add , "E" & Lig, wsFactures.Range("E" & Lig).Value 'Echeance
ListView1.ListItems(LigList).ListSubItems.Add , "F" & Lig, wsFactures.Range(Format("F" & Lig).Value, "0.00 €")

 

[Papou-net]

Re : Format € dans ListView

Bonsoir Bruce68,

Peut-être en essayant comme ceci :

ListView1.ListItems(LigList).ListSubItems.Add , "E" & Lig, wsFactures.Range("E" & Lig).Value 'Echeance
ListView1.ListItems(LigList).ListSubItems.Add , "F" & Lig, wsFactures.Format(Range("F" & Lig).Value, "0.00 €")

Cordialement.

 

[Bruce68]

Re : Format € dans ListView

Bonsoir Papou-net
Merci pour la réponse mais cela ne fonctionne pas .

Merci pour votre aide

 

[Fo_rum]

Re : Format € dans ListView

salut

et ainsi :

ListView1.ListItems(LigList).ListSubItems.Add , "F" & Lig, Format(wsFactures.Range("F" & Lig).Value, "0.00 €")

 

[Papou-net]

Re : Format € dans ListView

Re-bonsoir Bruce,

Alors peut-être comme suit :

ListView1.ListItems(LigList).ListSubItems.Add , "E" & Lig, wsFactures.Range("E" & Lig).Value 'Echeance
ListView1.ListItems(LigList).ListSubItems.Add , "F" & Lig, wsFactures.[B][COLOR="Red"]CCur[/COLOR][/B](Range("F" & Lig).Value, "0.00 €")

Si ça ne marche pas, peut-être devrais-tu joindre une copie de ton fichier ?

Cordialement.

 

[Bruce68]

Re : Format € dans ListView

Re bonsoir Papou-net et Fo rum

La solution de Fo rum fonctionne tres bien, merci beaucoup Fo rum

Bonne soirée à tous