Convertir des nombres en mots

Important :  Cet article a été traduit automatiquement, voir l’avertissement. Vous pouvez consulter la version en anglais de cet article ici.

Excel 2013 et Excel 2016 n’ont pas une fonction par défaut qui affiche les nombres comme des mots en anglais dans une cellule de feuille de calcul, mais vous pouvez ajouter cette fonctionnalité en collant le code de la fonction SpellNumber dans une feuille de module. Cette fonction vous permet de convertir les montants en euros et cent mots.

Si vous souhaitez convertir des valeurs numériques au format texte sans les afficher sous forme de mots, Utilisez la fonction texte .

Contenu de cet article

Création de la fonction SpellNumber pour convertir des nombres mots

  1. Utilisez le raccourci clavier, Alt + F11 pour ouvrir Visual Basic Editor.

    Remarque : Vous pouvez également accéder à l’éditeur Visual Basic en affichant l’onglet Développeur dans le ruban.

  2. Cliquez sur l’onglet Insérer, puis cliquez sur Module.

    Dans le menu Insertion, cliquez sur Module.
  3. Copiez les lignes de code suivantes.

    Remarque : Connus en fonction de la macro, ce code permet d’automatiser la tâche de conversion des numéros au texte dans l’ensemble de votre feuille de calcul.

    Option explicite

    « Fonction principale

    Fonction SpellNumber (ByVal MyNumber)

    Dim Dollars, centimes, Temp

    Dim chiffre après la virgule, nombre

    ReDim Place(9) sous forme de chaîne

    Place(2) = « Mille »

    Place(3) = « millions »

    Place(4) = « Milliard »

    Place(5) = « milliards »

    « Représentation de chaîne du montant.

    MyNumber = Trim(Str(MyNumber))

    « Position de décimale 0 si aucun.

    Chiffre après la virgule = InStr (MyNumber, «. »)

    ' Convertir centimes d’euro et définir MyNumber à montant en euros.

    Si chiffre après la virgule > 0 puis

    Centimes d’euro = GetTens (gauche (Mid (MyNumber, chiffre après la virgule + 1) & _ « 00 », 2))

    MyNumber = Trim (vers la gauche (MyNumber, chiffre après la virgule - 1))

    Fin si

    Nb = 1

    Tandis que vous <> MyNumber » »

    TEMP = GetHundreds (vers la droite (MyNumber, 3))

    Si Temp <> » « puis Dollars = Temp & Place(Count) & Dollars

    Si Len(MyNumber) > 3 puis

    MyNumber = gauche (MyNumber, Len(MyNumber) - 3)

    Else

    MyNumber = « »

    Fin si

    Nombre = nombre + 1

    Boucle

    Sélectionnez Dollars cas

    Cas « »

    Dollars = « Aucun Dollars »

    Cas n ° « 1 »

    Dollars = « Franc »

    Cas Else

    Dollars = Dollars & « Dollars »

    Sélectionnez fin

    Sélectionnez cas centimes d’euro

    Cas « »

    Centimes d’euro = « et non centimes »

    Cas n ° « 1 »

    Centimes d’euro = « et un Cent »

    Cas Else

    Centimes d’euro = « et » & centimes & « Centimes »

    Sélectionnez fin

    SpellNumber = Dollars & centimes d’euro

    Fonction de fin

    ' Convertit un nombre compris entre 100 et 999 en texte

    Fonction GetHundreds (ByVal MyNumber)

    Dim résultat sous forme de chaîne

    Si Val(MyNumber) = 0 quitter puis fonction

    MyNumber = droite (« 000 » & MyNumber, 3)

    ' Placer des centaines de convertir.

    If Mid (MyNumber, 1, 1) différente de « 0 » puis

    Résultat = GetDigit (Mid (MyNumber, 1, 1)) & « cent »

    Fin si

    ' Convertir l’emplacement des dizaines et sont ceux qui.

    If Mid (MyNumber, 2, 1) différente de « 0 » puis

    Résultat = résultat & GetTens (Mid (MyNumber, 2))

    Else

    Résultat = résultat & GetDigit (Mid (MyNumber, 3))

    Fin si

    GetHundreds = résultat

    Fonction de fin

    ' Convertit un nombre compris entre 10 et 99 en texte.

    Fonction GetTens(TensText)

    Dim résultat sous forme de chaîne

    Résultat = « » « Null la valeur de fonction temporaire.

    Si Val (vers la gauche (TensText, 1)) = 1 Then ' Si valeur comprise entre 10-19...

    Sélectionnez Val(TensText) casse

    Cas n ° 10 : Résultat = « 10 »

    Cas n ° 11 : Résultat = « Onze »

    Cas n ° 12 : Résultat = « Douze »

    Cas 13 : Résultat = « Treize »

    Cas 14 : Résultat = « Quatorze »

    Cas de 15 : Résultat = « Quinze »

    Cas de 16 : Résultat = « 16 »

    Cas 17 : Résultat = « Dix-sept »

    Cas 18 : Résultat = « Dix-huit »

    Cas 19 : Résultat = « Dix-neuf »

    Cas Else

    Sélectionnez fin

    Dois-je » Si valeur comprise entre-99 20...

    Sélectionnez cas Val (vers la gauche (TensText, 1))

    Cas n ° 2 : Résultat = « Vingt »

    Cas n ° 3 : Résultat = « Trente »

    Cas n ° 4 : Résultat = « Quarante »

    Cas n ° 5 : Résultat = « Cinquante »

    Cas n ° 6 : Résultat = « Soixante »

    Cas n ° 7 : Résultat = « Répertorie 70 feuilles »

    Cas n ° 8 : Résultat = « Quatre-vingts »

    Cas n ° 9 : Résultat = « Quatre-vingt-dix »

    Cas Else

    Sélectionnez fin

    Résultat = _ résultat & GetDigit

    (Vers la droite (TensText, 1)) ' Récupérer ceux que place.

    Fin si

    GetTens = résultat

    Fonction de fin

    ' Convertit un nombre compris entre 1 et 9 en texte.

    Fonction GetDigit(Digit)

    Sélectionnez Val(Digit) casse

    Cas n ° 1 : GetDigit = « Un »

    Cas n ° 2 : GetDigit = « Deux »

    Cas n ° 3 : GetDigit = « Trois »

    Cas n ° 4 : GetDigit = « Quatre »

    Cas n ° 5 : GetDigit = « Cinq »

    Cas n ° 6 : GetDigit = « Six »

    Cas n ° 7 : GetDigit = « 7 »

    Cas n ° 8 : GetDigit = « Huit »

    Cas n ° 9 : GetDigit = « Neuf »

    Cas dois-je : GetDigit = « »

    Sélectionnez fin

    Fonction de fin

  4. Collez les lignes de code dans la Module1 (Code) zone.

    Code collé dans le Module1 zone (Code).
  5. Cliquez sur fichier, puis cliquez sur Fermer et retourner à Microsoft Excel. La fonction SpellNumber est maintenant prête à utiliser.

    Remarque : Cette fonction fonctionne uniquement pour le fichier Excel en cours, vous avez ouverte. Pour utiliser cette fonction dans un autre classeur Excel, vous devez répéter les étapes pour copier et coller le code dans ce fichier.

Haut de la Page

Utiliser la fonction SpellNumber dans des cellules individuelles

  1. Tapez la formule = SpellNumber (valeur) dans la cellule dans laquelle vous souhaitez afficher un nombre écrit, remplaçant valeur par votre numéro de choix.

  2. Sur votre clavier, appuyez sur ENTRÉE.

    Par exemple, si vous tapez =SpellNumber(22.50), la cellule adresse-t-il Vingt-deux euros et cinquante centimes.

    Conseil : Pour convertir les nombres à texte dans une cellule distincte, remplacez la valeur numérique avec une référence de cellule dans la formule SpellNumber. Par exemple, tapez =SpellNumber(A1) pour afficher la valeur écrite de la cellule A1.

Haut de la Page

Enregistrez votre classeur de fonction SpellNumber

Excel Impossible d’enregistrer un classeur avec des fonctions de macro dans le format de classeur sans macro standard. Si vous cliquez sur fichier > Enregistrer. Une boîte de dialogue projet Visual Basic s’ouvre. Cliquez sur non.

Dans la boîte de dialogue de projet Visual Basic, cliquez sur non.

Vous pouvez enregistrer votre fichier en tant que Modèle Excel pour conserver votre fichier dans son format actuel.

  1. Cliquez sur Fichier > Enregistrer sous.

  2. Cliquez sur le menu déroulant Enregistrer en tant que type, puis sélectionnez Excel Macro-Enabled Template.

    Choisissez un modèle Excel prenant en charge.
  3. Cliquez sur Enregistrer.

Haut de la Page

Remarque : Avertissement traduction automatique : cet article a été traduit par un ordinateur, sans intervention humaine. Microsoft propose cette traduction automatique pour offrir aux personnes ne maîtrisant pas l’anglais l’accès au contenu relatif aux produits, services et technologies Microsoft. Comme cet article a été traduit automatiquement, il risque de contenir des erreurs de grammaire, de syntaxe ou de terminologie.

Voir aussi

TEXTE

Développez vos compétences
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoignez le programme Office Insider

Ces informations vous ont-elles été utiles ?

Nous vous remercions pour vos commentaires.

Merci pour vos commentaires. Il serait vraisemblablement utile pour vous de contacter l’un de nos agents du support Office.

×