Comment convertir rapidement des montants en devises en leur équivalent en mots dans Excel ?
Lorsque vous travaillez avec des données financières dans Excel, il peut être nécessaire de convertir des montants en devises en lettres, notamment pour rédiger le montant d’un chèque. Bien qu’Excel ne dispose pas de fonction intégrée à cet effet, deux méthodes efficaces permettent d’y parvenir. Cet article vous présente ces deux approches afin de vous aider à choisir celle qui correspond le mieux à vos besoins.
Écrire en toutes lettres une devise Convertir en mots à l’aide d’un code VBA
Écrire en toutes lettres une devise Convertir en mots avec Kutools pour Excel 
Écrire en toutes lettres une devise Convertir en mots à l’aide d’un code VBA
Dans Excel, il n’est pas possible de convertir rapidement des nombres en mots anglais sans recourir à VBA.
1. Appuyez sur les touches « Alt + F11 » pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur « Insertion » > « Module », puis collez le code VBA ci-dessous dans la nouvelle fenêtre qui s’ouvre.
VBA : Convertir des montants en devises en mots anglais
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 Function3. Ensuite, enregistrez ce code et cliquez sur « Fermer cette fenêtre » pour revenir à votre feuille de calcul. Sélectionnez une cellule vide et saisissez la formule suivante : =SpellNumberToEnglish(A2) (la cellule A2 contenant le montant en devises), puis appuyez sur Entrée. Étendez la formule aux cellules souhaitées en faisant glisser la poignée de recopie vers le bas. Voir les captures d’écran :
Écrire en toutes lettres une devise Convertir en mots avec la fonction pratique Écrire les nombres en toutes lettres
Pour ceux qui préfèrent éviter VBA, Kutools pour Excel propose une solution simple et efficace en un seul clic pour convertir des nombres en mots. La fonction « Convertir en mots » de Kutools pour Excel prend en charge plus de 40 devises différentes, ce qui en fait l’outil idéal pour les rapports financiers et les transactions internationales. En quelques clics, les utilisateurs transforment instantanément des montants numériques en texte monétaire entièrement formaté, dans plusieurs langues — notamment USD, EUR, GBP, JPY, CNY et bien d’autres — éliminant ainsi les conversions manuelles et réduisant les risques d’erreur.
1. Sélectionnez les montants en devises, puis cliquez sur « Kutools » > « Contenu » > « Convertir en mots ». Voir la capture d’écran :
2. Dans la boîte de dialogue « Convertir l'argent en minuscules en majuscules », choisissez la langue souhaitée ; ici, j’ai sélectionné l’option « Anglais » dans la liste déroulante « Langues ». Voir la capture d’écran :
3. Cliquez sur « OK » ou sur « Appliquer ». Les montants en devises que vous avez sélectionnés sont alors convertis en mots correspondant à la devise choisie.
Convertir des montants en devises en lettres dans Excel devient un jeu d’enfant grâce à VBA ou à Kutools pour Excel. En adoptant l’une ou l’autre de ces solutions, vous automatiserez vos rapports financiers et éliminerez les erreurs liées à la saisie manuelle. Envie de découvrir encore plus d’astuces et de conseils Excel ? Notre site web propose des milliers de tutoriels pour vous aider à maîtriser Excel.
Démo : Convertir un montant en devise en mots à l’aide de Kutools pour Excel
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