Microsoft 365 nombre en lettres incomplet

[phil66]

Bonjour à tous,

J'ai récupéré une feuille avec laquelle une formule me traduit les nombres en lettres (et surtout au format "belge" 😉 ).
Par contre il y a un souci dans la formule car si j'ai bien la partie "entier" qui s'affiche en lettres, les décimales restent
en chiffres!

Exemple : € 714,15 devient : sept cent quatuorze euros et 15 centimes...

Qu'est-ce qui coince ?

Je joins le fichier en question.

Merci d'avance,

Phil

 

[Dudu2]

Bonjour,
y a ça https://excel-downloads.com/resourc...nnaie-francaise-suisse-belgique-cfa-cfp.1291/.
Mais si tu as des questions il faudra voir avec son auteur @patricktoulon.

 

[vgendron]

Hello

dans la fonction personalisée, la partie décimale n'est pas traduite en lettres...

il suffit de modifier la fonction comme ca:

Function NumText(Nombre As Currency, Optional Unité As String, Optional no_chiffres As Integer, Optional SousUnité As String) As String
Dim PartieEntière As Currency, PartieDécimal As Currency
Dim TxtEntier As String, TxtDécimal As String
PartieEntière = Int(Nombre)
TxtEntier = NumTextEntier(PartieEntière)
If no_chiffres > 0 Then
    PartieDécimal = (Nombre - PartieEntière) * 10 ^ no_chiffres
    TxtDécimal = NumTextEntier(PartieDécimal)
    'TxtDécimal = Format(PartieDécimal, String(no_chiffres, "0"))
End If
NumText = TxtEntier & Unité & " " & TxtDécimal & " " & SousUnité
End Function

 

[patricktoulon]

Bonjour
avec ma fonction
en A1 j'ai 714,15
en B1 je met =NbToLettresFSB(A1;"beuro")

 

[phil66]

Bonjour
avec ma fonction
en A1 j'ai 714,15
en B1 je met =NbToLettresFSB(A1;"beuro")
Regarde la pièce jointe 1175988

Bonjour Patrick,

Avec votre version, la "traduction" est erronée dès que l'on dépasse les centaines ( sur l'image en annexe j'ai modifié les 3 premières lignes de la feuille e pour exemple).

Ai-je loupé quelque chose ?

Merci d'avance

Phil

 

[phil66]

Hello

dans la fonction personalisée, la partie décimale n'est pas traduite en lettres...

il suffit de modifier la fonction comme ca:

Function NumText(Nombre As Currency, Optional Unité As String, Optional no_chiffres As Integer, Optional SousUnité As String) As String
Dim PartieEntière As Currency, PartieDécimal As Currency
Dim TxtEntier As String, TxtDécimal As String
PartieEntière = Int(Nombre)
TxtEntier = NumTextEntier(PartieEntière)
If no_chiffres > 0 Then
    PartieDécimal = (Nombre - PartieEntière) * 10 ^ no_chiffres
    TxtDécimal = NumTextEntier(PartieDécimal)
    'TxtDécimal = Format(PartieDécimal, String(no_chiffres, "0"))
End If
NumText = TxtEntier & Unité & " " & TxtDécimal & " " & SousUnité
End Function

Bonjour Vgendron,

C'est parfait, ça marche !

Un grand merci 🙂

Phil

 

[phil66]

Bonjour Vgendron,

C'est parfait, ça marche !

Un grand merci 🙂

Phil

Ah ben non en fait il y a toujours un souci : au dela des milliers ça ne "traduit plus qu'une partie .
C'est avec le chiffre "1" que ça coince.
Exemple : 129000 devient bien "cent vingt neuf mille" OK ; MAIS 119000 devient "cent neuf mille" ou 11000 devient "un mille".

Bizarre😧

Phil

 

[patricktoulon]

re
perso je me demande ce que vous faite avec mon fichier exemple

je redonne le fichier exemple au cas ou

 

[phil66]

re
perso je me demande ce que vous faite avec mon fichier exemple
Regarde la pièce jointe 1176052
je redonne le fichier exemple au cas ou

Bonjour Patrick,

Désolé, mais même en prenant votre fichier exemple, sans rien modifier (je l'ai juste enregistré dans un dossier), j'ai des erreurs dès qu'on passe aux milliers (voir image).

Cordialement,

Philippe

 

[Leguyl]

Bonjour à tous,

@patricktoulon j'obtiens le même résultat que phil66 lorsque j'ouvre le fichier exemple.

 

[vgendron]

Bonjour


chez moi, le fichier exemple fonctionne impec

 

[Phil69970]

Bonjour à tous

Juste en passant et pour confirmer ce que dit Vincent en partant du fichier exemple de Patrick du post #8

Bonne lecture

 

[patricktoulon]

re
bonjour phil69970
qu'est ce qu'il te gêne dans la conversion?
sur la capture pour moi tout est bon

 

[patricktoulon]

re

 

[Phil69970]

Re

@patricktoulon

qu'est ce qu'il te gêne dans la conversion?
sur la capture pour moi tout est bon

Tu as lu trop vite mon post ...
J'ai juste dit que tout est correct chez moi et j'ai confirmé ce que disait Vincent (VGendron)

chez moi, le fichier exemple fonctionne impec

Juste en passant et pour confirmer ce que dit Vincent