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

CGU2022.

XLDnaute Junior
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
1641206789629.png







merci.






 

Pièces jointes

  • 2 -nouv depart 2-01-2202.xlsm
    144.3 KB · Affichages: 5
Solution
Bonjour Christophe et bienvenu, bonjour le forum,

Modifie ces quelques lignes de code :

VB:
    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 €")

ChTi160

XLDnaute Barbatruc
Bonjour christophe
Ce que j'ai modifié:
Pour exemple F1 et F2
VB:
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

XLDnaute Barbatruc
Repose en paix
Bonjour Christophe et bienvenu, bonjour le forum,

Modifie ces quelques lignes de code :

VB:
    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 €")
 

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 836
Messages
2 092 652
Membres
105 479
dernier inscrit
chaussadas.renaud