Convertir Convertir l'argent en minuscules en majuscules dans Word (en masse) — Anglais et chinois

Vous devez convertir des chiffres en montants en toutes lettres dans Word — pour que les sommes s’affichent clairement en toutes lettres sur vos factures, contrats ou chèques ? Vous n’êtes pas seul : Word ne propose malheureusement pas de solution intégrée simple pour transformer automatiquement les montants en toutes lettres, surtout lorsque votre document en contient de nombreux.

Voici deux méthodes fiables pour y parvenir :(1) un flux Excel « automatique » (VBA pour générer les montants en toutes lettres, puis copier-coller dans Word – configuration plus longue et processus plus lent), et (2) une méthode Word plus rapide en quelques clics utilisant Kutools pour Word (idéale si vous souhaitez rester dans Word et convertir plusieurs montants simultanément).

💡 Navigation rapide :

• Ce que signifie « montants en toutes lettres » (avec exemples)
• Méthode 1 — Dans Excel : convertir en montants en toutes lettres avec VBA + copier-coller dans Word
• Méthode 2 — Dans Word : un clic pour convertir en montants en toutes lettres avec Kutools pour Word
  • Convertir des nombres en montants en lettres en anglais (en masse)
  • Convertir des nombres en montants en lettres en chinois (en masse)
• Comparaison Excel vs Kutools
• Dépannage
• FAQ

Ce que signifie « montants en toutes lettres » (avec exemples)

« Mots monétaires » consiste à convertir des montants numériques en leur équivalent écrit en toutes lettres, par exemple : 1234,56 → « One Thousand Two Hundred Thirty-Four Dollars and Fifty-Six Cents ». Cette pratique est couramment utilisée dans les contrats, les factures, les chèques, les bons de commande et les documents de remboursement.

Méthode 1 — Dans Excel : conversion en mots monétaires avec VBA + copier-coller dans Word

Ce flux de travail est idéal lorsque vos montants sont déjà dans une feuille de calcul et que vous souhaitez obtenir les mots monétaires générés directement dans Excel, puis les copier dans Word en quelques secondes.

Étape 1 — Préparez votre tableau Excel

1. Dans Excel, créez un tableau comme suit : Montant (chiffres) et MontantEnLettres (à générer).
2. Assurez-vous que les montants sont bien des nombres (et non du texte). Si nécessaire, convertissez-les d’abord à l’aide de la fonction « Texte en nombre ».
   

Étape 2 — Ajoutez une fonction VBA (UDF) pour convertir Convertir l'argent en minuscules en majuscules

1. Dans Excel, appuyez sur Alt + F11 pour ouvrir l’éditeur VBA.
2. Cliquez sur Insertion > Module.
3. Collez le code VBA ci-dessous dans le module.
4. Enregistrez le fichier sous .xlsm (classeur activé pour les macros).

Option Explicit
'Updated by Extendoffice 2026/2/10
Public Function CurrencyWordsUSD(ByVal Amount As Double) As String
    Dim Dollars As Long
    Dim Cents As Long
    Dim sDollars As String
    Dim sCents As String

    If Amount < 0 Then
        CurrencyWordsUSD = "Minus " & CurrencyWordsUSD(Abs(Amount))
        Exit Function
    End If

    Dollars = Fix(Amount)
    Cents = Round((Amount - Dollars) * 100, 0)

    sDollars = NumberToWords(Dollars) & IIf(Dollars = 1, " Dollar", " Dollars")
    sCents = NumberToWords(Cents) & IIf(Cents = 1, " Cent", " Cents")

    If Cents = 0 Then
        CurrencyWordsUSD = sDollars
    Else
        CurrencyWordsUSD = sDollars & " and " & sCents
    End If
End Function

Private Function NumberToWords(ByVal n As Long) As String
    If n = 0 Then
        NumberToWords = "Zero"
        Exit Function
    End If

    NumberToWords = Trim_(ToWords(n))
End Function

Private Function ToWords(ByVal n As Long) As String
    Dim Units As Variant, Tens As Variant
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
                  "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

    Select Case n
        Case 0 To 19
            ToWords = Units(n)
        Case 20 To 99
            ToWords = Tens(Int(n / 10)) & IIf(n Mod 10 > 0, "-" & Units(n Mod 10), "")
        Case 100 To 999
            ToWords = Units(Int(n / 100)) & " Hundred" & IIf(n Mod 100 > 0, " " & ToWords(n Mod 100), "")
        Case 1000 To 999999
            ToWords = ToWords(Int(n / 1000)) & " Thousand" & IIf(n Mod 1000 > 0, " " & ToWords(n Mod 1000), "")
        Case 1000000 To 999999999
            ToWords = ToWords(Int(n / 1000000)) & " Million" & IIf(n Mod 1000000 > 0, " " & ToWords(n Mod 1000000), "")
        Case Else
            ToWords = ToWords(Int(n / 1000000000)) & " Billion" & IIf(n Mod 1000000000 > 0, " " & ToWords(n Mod 1000000000), "")
    End Select
End Function

Private Function Trim_(ByVal s As String) As String
    Trim_ = Application.WorksheetFunction.Trim(s)
End Function

Étape 3 — Étendez la formule vers le bas pour convertir plusieurs nombres (en lot)

1. Dans votre colonne MontantEnLettres, saisissez : =CurrencyWordsUSD(A2) (ajustez la référence de cellule selon votre feuille).
   
2. Étirez vers le bas pour convertir toutes les lignes.
   
3. Optionnel (recommandé) : copiez la colonne MontantEnLettres et collez-la en tant que valeurs pour verrouiller les résultats.
   

Étape 4 — Transférez les résultats dans Word (copier-coller rapide)

1. Dans Excel, sélectionnez les cellules Montant et MontantEnLettres dont vous avez besoin, puis appuyez sur Ctrl + C.
2. Dans Word, cliquez là où vous souhaitez insérer les résultats, puis appuyez sur Ctrl + V.
   

Méthode 2 — Dans Word : conversion en mots monétaires en un clic avec Kutools pour Word

Pour un flux de travail ultra-simple depuis Word, Kutools pour Word propose deux commandes dédiées : Nombres en mots monétaires anglais et Nombres en mots monétaires chinois. En un seul clic, convertissez directement les montants en lettres minuscules en lettres majuscules dans votre document.

Convertir des nombres en montants en lettres en anglais (en masse)

Après avoir téléchargé et installé Kutools pour Worddepuis le site officiel, procédez comme suit :

1. Dans Word, sélectionnez le texte contenant les nombres que vous souhaitez convertir.

   Astuce : si vous ne sélectionnez rien, l’outil s’applique automatiquement au document entier.

2. Cliquez sur Kutools > Insérer > Nombres en montants en toutes lettres (anglais).
   

Résultat : Kutools remplace instantanément les nombres par des montants en toutes lettres en anglais dans le contenu sélectionné (ou dans l’ensemble du document).

Convertir des nombres en montants en lettres en chinois (en masse)

Après avoir téléchargé et installé Kutools pour Worddepuis le site officiel, procédez comme suit :

1. Dans Word, sélectionnez le texte contenant les nombres que vous souhaitez transformer en montants écrits en toutes lettres (chinois).

   Astuce : si vous ne sélectionnez rien, l’outil convertira les nombres dans le document entier.

2. Cliquez sur Kutools > Insérer > Nombres en montants en toutes lettres (chinois).
   

Résultat : Kutools remplace instantanément les nombres par des mots monétaires chinois dans le contenu sélectionné (ou dans l’ensemble du document).

Comparaison Excel vs Kutools

Résumé : Pour bénéficier du flux de travail le plus rapide depuis Word, utilisez Kutools pour Word afin de convertir plusieurs montants en mots monétaires en quelques clics (sur une sélection ou sur l’ensemble du document). Optez pour la solution VBA Excel uniquement si vous travaillez déjà dans Excel et que vous n’êtes pas gêné par une configuration supplémentaire.

Dépannage

FAQ