Mettre nombre en chiffre en lettre dans Excel

Résolu/Fermé
leeks Messages postés 54 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 5 janvier 2012 - 28 sept. 2011 à 15:59
leeks Messages postés 54 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 5 janvier 2012 - 29 sept. 2011 à 13:57
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.

A voir également:

3 réponses

Heremion Messages postés 539 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 1 juin 2022 102
28 sept. 2011 à 16:05
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/
2
leeks Messages postés 54 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 5 janvier 2012 6
29 sept. 2011 à 13:57
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
1
Bonjour,

moi j'utilise Digit Converter, disponible sur le site:

www(point)site-des-savoirs(point)com
0