Microsoft 365 nombre en lettres incomplet

phil66 · 5 Août 2023

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 · 5 Août 2023

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 · 5 Août 2023

Hello

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

il suffit de modifier la fonction comme ca:

VB:

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 · 5 Août 2023

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

phil66 · 6 Août 2023

patricktoulon à dit:
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 · 6 Août 2023

vgendron à dit:

Hello

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

il suffit de modifier la fonction comme ca:

VB:

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 · 6 Août 2023

phil66 à dit:
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 · 6 Août 2023

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

je redonne le fichier exemple au cas ou

phil66 · 7 Août 2023

patricktoulon à dit:
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 · 7 Août 2023

Bonjour à tous,

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

vgendron · 7 Août 2023

Bonjour

chez moi, le fichier exemple fonctionne impec

Phil69970 · 7 Août 2023

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 · 7 Août 2023

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

patricktoulon · 7 Août 2023

Phil69970 · 7 Août 2023

Re

@patricktoulon

patricktoulon à dit:
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)

vgendron à dit:
chez moi, le fichier exemple fonctionne impec

Phil69970 à dit:
Juste en passant et pour confirmer ce que dit Vincent

Microsoft 365 nombre en lettres incomplet

phil66

XLDnaute Junior

Pièces jointes

Dudu2

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

phil66

XLDnaute Junior

Pièces jointes

phil66

XLDnaute Junior

phil66

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Pièces jointes

phil66

XLDnaute Junior

Pièces jointes

Leguyl

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Discussions similaires