XL 2016 Convertir en Format monétaire FCFA

Eric C

XLDnaute Barbatruc

• 23 Octobre 2019

• #2

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

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 23 Octobre 2019

• #3

Bonsoir, à tous

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

## ##0,00" CFA"

Slts

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 23 Octobre 2019

• #4

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

 

Vote positif 0 Vote négatif

D

DJISA

XLDnaute Occasionnel

• 23 Octobre 2019

• #5

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.

VB:

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 23 Octobre 2019

• #6

Re,

Essaye :

VB:

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

@+ Eric c

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Octobre 2019

• #7

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 :

VB:

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

A+

 

Vote positif 0 Vote négatif