Comment convertir une valeur numérique en un mot anglais?

Le logiciel Office Excel, offre aux utilisateurs la possibilité d'effectuer diverses opérations sur les données dans les champs de la feuille de calcul. Une fonction définie par l'utilisateur peut être utilisée pour convertir une valeur numérique en un mot anglais . Une certaine connaissance des concepts de programmation tels que les fonctions et les techniques de bouclage aiderait à comprendre et à écrire les fonctions, mais n’est pas indispensable. Il existe de nombreuses ressources disponibles sur Internet où les fonctions qui peuvent être utilisées pour convertir une valeur numérique en un mot anglais peuvent être téléchargées et incluses dans les feuilles de calcul Excel gratuitement.

Pour convertir une valeur numérique en un mot anglais, voici la formule dont vous aurez besoin :

Ceci est un message du forum, merci à rajput391

Ci-dessous, vous trouverez le code à saisir dans votre feuille Excel:

1. Appuyez sur Alt + F11> copier et insérer le module (si le module n’affiche pas le module d’insertion, cliquez sur Insérer dans la barre de menus> Module).

2. Alt + Q Enregistrer le code et retourner à la feuille Excel

3. Insérer> fonction> définie par l'utilisateur> A1 ou cellule correspondante

 Mots de fonction (fig, Point optionnel = "Point") As String Dim dig (14) As Integer alpha = Array ("", "Un", "Deux", "Trois", "Quatre", "Cinq", "Six" ", " Sept ", " huit ", " neuf ", " dix ", " onze ", " douze ", " treize ", " quatorze ", " quinze ", " seize ", " dix-sept ", " dix-huit ", "Dix-neuf", "Vingt", "Trente", "Quarante", "Cinquante", "Soixante", "Soixante-dix", "Quatre-vingt", "Quatre-vingt", "Quatre-vingt-dix", figi = Trim (StrReverse (Str (Int (Abs (fig.))) )))) Pour i = 1 À Len (figi) chiffre (i) = Milieu (figi, i, 1) Suivant Pour i = 2 À Len (figi) Étape 3 Si chiffre (i) = 1 Puis chiffre (i) = chiffre (i - 1) + 10: chiffre (i - 1) = 0 Sinon: Si chiffre (i)> 1 Puis chiffre (i) = chiffre (i) + 18 Fin si suivant Pour i = 1 À Len (fig ) Si (i Mod 3) = 0 Et chiffre (i)> 0 Alors mots = "cent" & mots Si (i Mod 3) = 1 Et chiffre (i) + chiffre (i + 1) + chiffre (i + 2) )> 0 Alors _ mots = Choisir (i / 3, "mille", "millions", "milliards") & words words = Trim (alpha (chiffre (i)) & "" & mots) Suivant Si fig Int (fig ) Alors figc = StrReverse (figi) Si figc = 0 Alors figc = "" figd = Couper (WorksheetFunction.Su bstitute (Str (Abs (fig)), figc & ".", "")) words = Trim (mots & "" & point) Pour i = 1 À Len (figd) Si Val (Mid (figd, i, 1) ))> 0 Alors mots = mots & "" & alpha (Mid (figd, i, 1)) Sinon: mots = mots & "Zéro" Fin Si Suivant Fin Si Si fig <0 Alors mots = "Négatif" & Mots Fin Une fonction