Comment écrire des nombres en toutes lettres ou les convertir en mots anglais dans Excel ?
Convertir des nombres en leur équivalent en mots anglais dans Excel peut s’avérer une compétence précieuse, notamment pour les rapports financiers, la facturation ou la rédaction de chèques. Bien qu’Excel ne propose pas de fonction intégrée à cet effet, plusieurs méthodes efficaces permettent d’y parvenir. Cet article vous guide pas à pas vers les solutions les plus performantes pour transformer des chiffres en mots dans Excel, accompagnées de conseils pratiques pour optimiser votre workflow.
Écrire en toutes lettres ou convertir des nombres en mots anglais à l’aide d’un code VBA
Le long code VBA suivant vous permet d’écrire les nombres en toutes lettres sous forme de chaînes de texte. Procédez comme suit :
1. Maintenez enfoncées les touches « Alt + F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
2. Cliquez sur « Insertion » > « Module », puis collez la macro suivante dans la fenêtre du module.
VBA : Écrire en toutes lettres les montants monétaires en mots anglais dans Excel
Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
xHundred = ""
xValue = Right(pNumber, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & GetTens(Mid(xValue, 2))
Else
xHundred = xHundred & GetDigit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
Dollars = xHundred & arr(xIndex) & Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) - 3)
Else
pNumber = ""
End If
xIndex = xIndex + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(pTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
3. Ensuite, enregistrez le code et revenez à la feuille de calcul. Dans la cellule adjacente B2, saisissez la formule =SpellNumberToEnglish(A2). Voir la capture d’écran :
4. Appuyez ensuite sur Entrée, sélectionnez la cellule C2, puis faites glisser la poignée de recopie sur la plage souhaitée pour étendre cette formule. Tous les montants monétaires sont ainsi convertis en toutes lettres en anglais. Voir capture d’écran :
Écrire en toutes lettres ou convertir des nombres en mots anglais avec Kutools pour Excel
Simplifiez vos tâches Excel et boostez votre productivité avec Kutools pour Excel ! Sa puissante fonctionnalité « Convertir en mots » propose plus de 40 options de conversion monétaire, vous permettant de transformer instantanément des chiffres en lettres pour des devises comme le dollar américain, le yuan chinois ou toute autre monnaie — en quelques clics seulement.
1. Sélectionnez la plage de nombres que vous souhaitez convertir en toutes lettres, puis cliquez sur « Kutools » > « Contenu » > « Convertir en mots ».
2. Dans la boîte de dialogue qui s’ouvre, sélectionnez « Anglais » dans la liste « Langues ». Vous pouvez prévisualiser les résultats dans le volet « Aperçu » situé à droite. Voir la capture d’écran :
3. Cliquez ensuite sur OK ou Appliquer. Tous les montants de la plage d’origine ont été convertis en chaînes de texte.
Remarque : Si vous souhaitez uniquement convertir des nombres en mots anglais (sans devise), cochez la case « Ne pas convertir en unité monétaire ».
En suivant les étapes et les optimisations décrites dans ce guide, vous pourrez convertir efficacement en mots et rationaliser votre flux de travail. Que vous prépariez des rapports financiers ou créiez des factures, maîtriser cette compétence vous fera gagner un temps précieux et réduira vos efforts. Si vous souhaitez découvrir davantage d’astuces et de conseils Excel,notre site web propose des milliers de tutoriels.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels