Note: The other languages of the website are Google-translated. Back to English

Comment épeler ou convertir des nombres en mots anglais dans Excel?

Supposons que vous ayez beaucoup de numéros de montant de prix et que vous deviez maintenant les convertir ou les épeler en chaînes de texte. Par exemple, convertissez $123.55 aux mots anglais cent vingt-trois dollars et cinquante-cinq cents. Dans Excel, il n'y a aucune installation efficace pour résoudre ce problème mais en utilisant le code VBA long et complexe. Dans cet article, je vais vous présenter quelques méthodes pour y faire face.

Épelez ou convertissez des nombres en mots anglais avec le code VBA

Épelez ou convertissez des nombres en mots anglais avec Kutools for Excel


Épelez ou convertissez des nombres en mots anglais avec le code VBA

Le long code VBA suivant peut vous aider à épeler des nombres en chaînes de texte. Procédez comme suit:

1. Maintenez le ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez la macro suivante dans le Fenêtre du module.

VBA: épeler les numéros de devise 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 B2 adjacente, entrez la formule = SpellNumberToEnglish (A1), voir capture d'écran:

4. Puis appuyez Entrer et sélectionnez la cellule B2, puis faites glisser la poignée de recopie vers la plage contenant cette formule selon vos besoins. Et tous les nombres de devises ont été épelés en mots anglais. Voir la capture d'écran:

Notes: Comme ce sont des formules, lorsque vous devez les copier et les coller, veuillez les coller en tant que valeurs.


Épelez ou convertissez des nombres en mots anglais avec Kutools for Excel

Peut-être que le long code ci-dessus peut vous rendre fou, ne vous inquiétez pas, ici je peux vous donner un moyen simple et rapide de le résoudre. Avec le Kutools pour Excel's Nombres en mots fonction, vous pouvez convertir rapidement et facilement les nombres en chaînes de texte.

Kutools pour Excel- Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! Achetez-le Maintenant

1. Sélectionnez les numéros de plage que vous souhaitez épeler, puis cliquez sur Kutools > Contenu > Nombres en mots.
doc kutools nombre de mots 1

2. Dans la boîte de dialogue contextuelle, choisissez Anglais du Langues. Et vous pouvez prévisualiser les résultats de la droite Aperçu Vitre. Voir la capture d'écran:
doc kutools nombre de mots 2

3. Puis clique Ok or Appliquer. Et tous les numéros de montant de prix ont été convertis en chaînes de texte dans la plage d'origine.
doc kutools nombre de mots 3

Notes: Si vous souhaitez simplement convertir des nombres en mots anglais (pas en devise), veuillez vérifier Non converti en devise case à cocher.
doc kutools nombre de mots 3 doc kutools nombre de mots 3

Cette caractéristique fantastique de Nombres en mots peut facilement traduire les numéros de devise en texte de devise en anglais ou en chinois, comme traduire 32.01 en "trente-deux dollars et un cent" ou "叁拾 贰元 零 壹 分". Faites un essai gratuit!

Démo: Épelez les nombres de devises en mots anglais


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer 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 réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (112)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
C'est vraiment cool. Et Fount, il est facile de changer le mot "Dollar et d'envoyer en roupies ou toute autre devise que nous voulons en copiant-collant le code sur n'importe quelle autre nouvelle page de mots et en remplaçant le même.
Ce commentaire a été minimisé par le modérateur sur le site
Je ne reçois pas cette formule dans ma feuille, pouvez-vous me montrer en détail
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour vos précieuses informations. Je dois mentionner que c'est du dirham et non du dollar, comment puis-je le faire Merci d'avance
Ce commentaire a été minimisé par le modérateur sur le site
Veuillez remplacer tous les mots ~dollar/dollars" et ~cent/cents" dans le code par le nom de votre devise.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé cela et j'ai travaillé pour moi ... allez dans le module, ctrl F pour trouver >>> puis dans la recherche, mettez Dollar, puis remplacez (dans la même boîte contextuelle) et mettez Dirham, cela fonctionnera
Ce commentaire a été minimisé par le modérateur sur le site
Problème d'arrondi avec des nombres. L'exemple est dans mes données générales est de 50.576 mais lorsque je l'ai arrondi et que je deviens 50.58, les mots ne changent/convertissent pas en fonction de la nouvelle valeur.
Ce commentaire a été minimisé par le modérateur sur le site
C'est un code qui fonctionne bien. Merci beaucoup.
Ce commentaire a été minimisé par le modérateur sur le site
C'est une très bonne formule, mais j'ai besoin des mots dans des formats indiens
Ce commentaire a été minimisé par le modérateur sur le site
plx, expliquez-moi clairement comment puis-je le voir dans le format monétaire de mon pays, c'est-à-dire les roupies à la place des dollars et Paisa à la place des cents.
Ce commentaire a été minimisé par le modérateur sur le site
CHER MONSIEUR, C'est une très bonne formule, mais j'ai besoin des mots dans les formats indiens VEUILLEZ AVISER
Ce commentaire a été minimisé par le modérateur sur le site
est-il possible d'obtenir des données en tant que 100e après la décimale, par exemple .100 cri de réponse être comme 100 au lieu de dix
Ce commentaire a été minimisé par le modérateur sur le site
merci pour la formule, cependant, est-il possible d'obtenir le mot "Dollar/Rupees" comme préfixe, c'est-à-dire Roupies Mille .... et Paisas trente seulement. apprécierait vraiment votre réponse.
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je changer le montant en mots anglais en monnaie indienne
Ce commentaire a été minimisé par le modérateur sur le site
copiez le langage de code ci-dessus dans une feuille de mots remplacez le mot "dollar" par "roupies" puis remplacez le mot "cents" par "Paisa" revenez au fichier excel appuyez sur alt + F11 insérer>>> module >> collez le fichier Word entier jusqu'à "end function" do .....=SpellNumberToEnglish(cellref) et vous êtes prêt à partir
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Monsieur, j'ai essayé d'enregistrer la macro comme vous l'avez mentionné ci-dessus. et ça marche bien. Mais si je ferme Excel et ouvre une nouvelle feuille, cela ne fonctionne pas. aide svp
Ce commentaire a été minimisé par le modérateur sur le site
BONJOUR JUS VOUS POUVEZ INSTALLER SPEL CURR ADDIN VOUS POUVEZ CONVERTIR :) :) :lol:
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup, pourriez-vous s'il vous plaît laissez-moi maintenant comment puis-je obtenir le format indien (roupies)
Ce commentaire a été minimisé par le modérateur sur le site
ne fonctionne pas. pop-up dit que la classe n'est pas enregistrée. aucune possibilité de choisir la langue. code d'erreur
Ce commentaire a été minimisé par le modérateur sur le site
wow super pour les trucs que je cherchais depuis une semaine. Cela fonctionne très bien. Merci beaucoup
Ce commentaire a été minimisé par le modérateur sur le site
c'est vraiment utile, vraiment vraiment grand merci :-)
Ce commentaire a été minimisé par le modérateur sur le site
THNX ATONE POUR DE TELLES CONSEILS
Ce commentaire a été minimisé par le modérateur sur le site
J'ai mené une recherche et je n'ai pas pu convertir dans le système monétaire pakistanais, car nous utilisons ce format. 1,00,00,00,00,000.00 mais Excel utilise ce format 1,000,000,000,000. et le code est en formule million et billion. J'ai essayé de changer le manque, le karor, l'arabe et le kharab au lieu du million, du milliard et du trillion, mais cela ne changera que les mots et le système restera le même. comme après le changement, il montrera celui-ci. 100,000,000 XNUMX XNUMX, cela devrait être cent millions, mais il sera montré cent lakhs. Si quelqu'un peut m'aider, je vous en serai reconnaissant.
Ce commentaire a été minimisé par le modérateur sur le site
Je veux convertir le poids métrique des nombres en mots. par exemple. 1. 10.50 tonnes métriques (MT) doivent être écrites comme "10 tonnes et 500 kg" 2. 12.345 MT = douze tonnes et trois cent quarante-cinq kg Besoin d'au moins 3 décimales et 4 c'est encore mieux. max 9999.9999 est ce que je veux. Puis-je avoir une aide s'il vous plait?
Ce commentaire a été minimisé par le modérateur sur le site
S'il vous plaît, si vous avez trouvé le chemin ... s'il vous plaît écrivez-moi islamrafat@gmail.com Merci
Ce commentaire a été minimisé par le modérateur sur le site
Si vous avez trouvé s'il vous plaît écrivez-moi islamrafat@gmail.com
Ce commentaire a été minimisé par le modérateur sur le site
Fantastique. Merci à Extend Office
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour cette aide ça marche :-)
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL