XL 2016 Convertir en Format monétaire FCFA

[DJISA]

Salut le forum
J'ai une texte box où doit s'afficher une donnée en format monétaire (CFA ).
Le code que j'ai utilisé l'affiche en euro.
J'aimerais bien trouver une solution qui me permette d'avoir cette donnée en CFA
Merci
DJISA

 

[Eric C]

Bonsoir le forum
Bonsoir DJISA

Tu retournes ta valeur dans une cellule que tu formates : Click droit - Format cellule - Monétaire - Symbole : CFA Français (Côte d'Ivoire)
Bonne soirée à toutes & à tous
@+ Eric c

 

[riton00]

Bonsoir, à tous

Clic droit sur la cellule, Format cellule-Monétaire- personnalisée et dans "type" tu écris:

## ##0,00" CFA"

Slts

 

[Eric C]

Re,

Bonsoir riton00

Pourquoi "inventer" un format personnalisé qui est déjà présent dans la liste des format monétaire ?
Sur ce bon appétit et bonne soirée

 

[DJISA]

Bonsoir Eric
Peut-être me suis-je pas bien fait comprendre.
Il s'agit ici de modifier les données d'une cellule à partir d'une textbox en cliquant sur le bouton modifier.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ligne As Integer
On Error Resume Next
ligne = Me.ListBox1.ListIndex
Me.Txtsommeversee = Me.ListBox1.Column(10, ligne)
Me.Txtsommeversee = Format(Me.Txtsommeversee, "currency")
Me.Txtlivretfaec = Me.ListBox1.Column(13, ligne)
Me.Txtlivretfaec = Format(Me.Txtlivretfaec, "currency")

End Sub

Les deux textbox: Txtsommeversee et txtlivretfaec s'affichent en euro avec le code que j'ai utilisé. Je voudrais trouver un code pour qu'elles s'affichent en CFA.
Merci
DJISA

 

[Eric C]

Re,

Essaye :

Me.Txtsommeversee = Format(Me.Txtsommeversee, "## ##0,00 CFA")

@+ Eric c

 

[job75]

Bonjour DJISA, Eric C, riton00,

En VBA le séparateur de milliers dans le format est une virgule et dans le résultat on obtient des espaces insécables de code 160 :

Txtsommeversee = Format(Val(Replace(Replace(Txtsommeversee, ",", "."), Chr(160), "")), "#,##0.00 CFA")

A+