XL 2016 Format monétaire en CFA

[DJISA]

Bonsoir le Forum
Je veux que la monnaie soit en FCFA, mais ce code je constate que le textbox l'affiche en euro
Quel code est adapté à mes besoins?
End Sub

Private Sub Textmontant_AfterUpdate()
Me.Textmontant = Replace(Me.Textmontant, ".", ",")
Me.Textmontant = Format(Me.Textmontant, "currency")

End Sub

Merci
DJISA

 

[job75]

Bonsoir DJISA,

Private Sub Textmontant_AfterUpdate()
Textmontant = Format(Val(Replace(Textmontant, ",", ".")), "#,##0.00") & " FCFA"
End Sub

A+

 

[DJISA]

Bonsoir Job, Le Forum
Merci pour le code. Ça marche!
DJISA