Format a adapter

Bonsoir a toutes et tous, Forum bonsoir

Je souhaiterai svp adapter une ligne de code voir code en remarque au
format monétaire.

j'ai beau essayer , ca marche pas bien.

Merci de votre aide et pour votre temps.

Une bonne soirée a vous

Cordialement Ray

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Combobox2_Click() If ComboBox2.ListIndex = -1 Then Exit Sub   '** TextBox2 = Format(TextBox2, "##,##0.00 €")   '*** Mettre le code ci dessous au format > > > "##,##0.00 €"   TextBox2 = Ws.Cells(21, 5 + ComboBox2.ListIndex) & " €"   End Sub

---

Bonjour,
Le format doit être la virgule pour le séparateur de millier et le point pour le séparateur de décimale
Exemple

Code:

---

1 2	TextBox1 = Format(5459.4, "##,##0.00 €") TextBox2 = Format(Feuil2.Cells(2, 5), "##,##0.00 €")

---

Bonjour a tous, forum bonjour

Bonjour Philippe

Merci pour ta réponse, c'est sympa

bon ca fonctionne merci


jsute une question svp, pourquoi les chiffres 5459.4 ???

Bonne journée a toi

Cdlt Ray

Code:

---

1 2	TextBox1 = Format(5459.4, "##,##0.00 €")

---

Bonjour Ray,
La seule raison était de montrer un exemple avec une constante.
J'en profite pour rectifier le format (un seul dièse au millier suffit)

Code:

---

TextBox2 = Format(Feuil1.Cells(22, 8), "#,##0.00 €")

---

Salut philippe

Merci pour ta réponse et pour les infos

je te souhaite une très bonne journée et merci pour l'aide partager.

Cordialement Raymond :merci: