XL 2010 Textbox format €[RESOLU]

[herve62]

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]

Bonjour,

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

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

Cordialement

 

[herve62]

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]

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]

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

 

[herve62]

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

 

[ChTi160]

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

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à ?

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