XL 2013 valeurs tableau au format monétaire mais pas textbox / listbox

[CGU2022.]

Bonjour à tout le monde
sur mon tableau les valeurs sont en monétaire (ex: 10,00 €), certaines colonnes.

Peux t-on afficher dans la listebox (sur les colonnes concernées) le format monétaires ,
je pense que si cela apparait cela ira peut être également dans les différentes txtbox des userforms ?

j'ai un code dans le bouton modifier article... les txtbox sont F1 - F2 - F3 -F4 -F5

merci.

 

[ChTi160]

Bonjour christophe
Ce que j'ai modifié:
Pour exemple F1 et F2

UserFormmodifierarticle.Txt_F1.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 8)), "### ###.000 €")
UserFormmodifierarticle.Txt_F2.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 9)), "### ###.000 €")

on peut surement mieux faire Lol
Tu pourrais aussi mettre le "€" a côté des TextBox
oupss Bonjour Robert "Meilleurs voeux"
jean marie

 

[Robert]

Bonjour Christophe et bienvenu, bonjour le forum,

Modifie ces quelques lignes de code :

    UserFormmodifierarticle.Txt_F1.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 8)), "#,##0.00 €")
    UserFormmodifierarticle.Txt_F2.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 9)), "#,##0.00 €")
    UserFormmodifierarticle.Txt_F3.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 10)), "#,##0.00 €")
    UserFormmodifierarticle.Txt_F4.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 11)), "#,##0.00 €")
    UserFormmodifierarticle.Txt_F5.Value = Format(CCur(ListBox1.List(ListBox1.ListIndex, 12)), "#,##0.00 €")

 

[CGU2022.]

Merci

 

[Robert]

Bonjour le fil, bonjour le forum,

Désolé Jean-Marie je ne viens de voir ton post que maintenant. Tous mes vœux pour toi aussi et tes proches !...