Mettre nombre en chiffre en lettre dans Excel Résolu/Fermé

Question

Bonjour, 

j 'ailmerais savoir s il existe une solution automatique  pour mettre un nombre ecrit en chiffre ( Dans une celulle C4 par exemple)  en nombre ecrit en toute lettre ( dans une celulle D4). 

Exemple : 10.000 = Dix Mille

Merci d'avance
NB: A defaut d'une solution formule sous EXCEL une macro  fera aussi l'affaire.

Configuration: / Internet Explorer 999.1

Heremion · Accepted Answer

Bonjour Leeks,

En cherchant un peu sur google en tapant ta demande, je suis déjà tombé sur quelques posts traitant ce sujet :

http://excel-competence.over-blog.com/article-ecrire-des-nombres-en-toutes-lettres-dans-excel-48213970.html

https://forums.commentcamarche.net/forum/affich-1237557-convertir-un-chiffre-en-lettre-avec-excel

https://www.commentcamarche.net/faq/11100-vb6-net-vba-transformer-chiffres-en-lettre

https://www.01net.com/actualites/

Jean90 · Answer

Bonjour,

moi j'utilise Digit Converter, disponible sur le site:

www(point)site-des-savoirs(point)com

leeks · Answer

Bonjour a tous et merci pour vos contribution

Pour mettre un nombre en texte il suffit d'utiliser la macro suivante : 

 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 = Format(PartieDécimal, String(no_chiffres, "0"))
End If
NumText = TxtEntier & Unité & " " & TxtDécimal & " " & SousUnité
End Function


Vous pouvez vous rendre sur le site suivant pour plus d'explication
http://intranet.greta65.com/espace_stagiaires/trucs_astuces/NumText_SVM-GRETA/index.htm

Bonne chance

Mettre nombre en chiffre en lettre dans Excel

3 réponses

Discussions similaires