Discussion :

[eliot.raymond]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eliot.raymond]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eliot.raymond]

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