XL 2010 Textbox format €[RESOLU]

herve62 · 16 Mars 2022

Bonjour
Via l'USF On entre un code ce dernier donne les infos dont le prix mais je n'arrive pas
à l'afficher sous forme € dans la box , pourtant fonctionne dans une cellule

Hasco · 16 Mars 2022

Bonjour,

Utilisez le . (point) comme séparateur décimal pour vba et non la virgule est (toujours pour vba) le séparateur de millier

VB:

TextBox10 = Format(TextBox10, "#,##0.00€")

Cordialement

herve62 · 16 Mars 2022

Ok merci Hasco
? ce n'est pas ce que l'on trouve comme méthode sur le web , même dans un vieux sujet ici
mais bon là ça marche

Hasco · 16 Mars 2022

Re,

C'est que beaucoup oublient que monsieur VBA est américain
Pour avoir le format monétaire avec le signe monétaire du système le format sera avec le dollar "#,##0.00 $".
Bien-sûr si vous voulez une application internationale, sinon vous pouvez forcez le signe monétaire comme vous le faites.

Cordialement

herve62 · 16 Mars 2022

Bonsoir Jean Marie
Oui , mais bon là c'est juste pour info !! moins j'écris mieux je me porte !!!!!

herve62 · 16 Mars 2022

Moi ca fait 1 ligne au lieu de 3 ..... x fois comme ça ça fait des économies !!

ChTi160 · 16 Mars 2022

Re
Mon code en fonction de ce que j'ai vu

Code:

Private Sub ComboBox4_Change()
With Me.CBx_4
i = .ListIndex
      Me.TxtB_6 = .List(i, 1) 'gestion du TextBox 6 ---> 23 Caratères
      Me.TxtB_10 = Format(CCur(.List(i, 2)), "### ##0.00€") '---> Cette Ligne 52 caractères
End With
End Sub

Private Sub UserForm_Initialize()'
With Me
     .CBx_4.List = Range("B6:D25").Value 'on charge le Combobox'
End With
End Sub

quand tu dis :

Moi ca fait 1 ligne

c'est celle-là ?

Code:

Private Sub ComboBox4_AfterUpdate()
TextBox6.Value = Application.WorksheetFunction.VLookup(CDbl(ComboBox4), Sheets("Feuil1").Range("B6:D25"), 2, 0) 'Ici 111 Caractères
Sheets("Feuil1").Range("A1") = Format(Application.WorksheetFunction.VLookup(CDbl(ComboBox4), Sheets("Feuil1").Range("B6:D25"), 3, 0), "## ##0,00€")
'************************ci dessous ? Cette Ligne 131 caractères
TextBox10.Value = Format(Application.WorksheetFunction.VLookup(CDbl(ComboBox4), Sheets("Feuil1").Range("B6:D25"), 3, 0), "# ##0,00€") '--->Ici
'************************
End Sub

Si ce qui se trouve dans le Code du Userform contient bien ta ligne de code Lol
Donc pour ce qui est du TextBox10 moi 52 caractères toi 131 (compris les espaces) Lol
Donc tu peux faire moins encore Lol
Bonne fin de Soirée
Jean marie

XL 2010 Textbox format €[RESOLU]

herve62

XLDnaute Barbatruc

Pièces jointes

Hasco

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Discussions similaires