Comment convertir un nombre en lettres dans un document Word ?
Cet article vous explique comment convertir des nombres en mots anglais directement dans un document Word. Continuez votre lecture pour en savoir plus si le sujet vous intéresse !
Convertir un nombre en mots anglais à l’aide de VBA
Convertir un nombre en mots anglais dans Excel avec Kutools pour Excel
Convertir un nombre en mots anglais à l’aide de VBA
1. Sélectionnez le nombre que vous souhaitez convertir en lettres, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis copiez le code ci-dessous et collez-le dans le script du Module.
VBA : Convertir un nombre en lettres
Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
Dim xDigit As Double
Dim xBuff As String
On Error Resume Next
Selection.MoveLeft wdWord, 1, wdMove
Selection.MoveRight wdWord, 1, wdExtend
xDigit = Val(Trim(Selection.Text))
If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
If xDigit > 999999 Then
If xDigit <= 999999999 Then
xBuff = Trim(Int(Str(xDigit / 1000000)))
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xBuff = Selection.Text & " million "
xDigit = Right(Str(xDigit), 6)
End If
End If
If xDigit <= 999999 Then
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xDigit = xBuff & Selection.Text
Selection.TypeText xDigit + " "
Else
MsgBox "Number too large", vbOKOnly, "Kutool for Word"
End If
End Sub3. Appuyez sur la touche F5 pour exécuter le code. Le nombre est désormais converti en lettres.
Remarque : Ce code ne fonctionne qu’avec un seul nombre à la fois.
Convertir un nombre en mots anglais avec Kutools pour Excel
Si vous souhaitez convertir des nombres en mots dans une feuille Excel, un outil pratique est disponible : Convertir en mots de Kutools pour Excel, qui permet de transformer des chiffres en mots anglais ou chinois, ou encore en montants monétaires exprimés en anglais ou en chinois.
Après avoir installé gratuitementKutools pour Excel, procédez comme suit :
1. Sélectionnez les cellules que vous souhaitez convertir en mots, puis cliquez sur Kutools > Contenu > Convertir en mots.
2. Dans la boîte de dialogue qui s’ouvre, cochez les options Anglais et Ne pas convertir en unité monétaire.
3. Cliquez sur OK ou sur Appliquer. Les nombres sélectionnés seront alors convertis en lettres.
Meilleurs outils de productivité Office
Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités remarquables !
🤖Fonctionnalités Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (conserver le format) / Super Traduire (conserver le format) / Rédaction IA / Correction IA…
📘Maîtrisez vos documents : divisez les pages, fusionnez les documents, exportez la sélection dans divers formats (PDF, TXT, DOC, HTML…) ou convertissez-les par lots en PDF…
✏Édition du contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes d’un tableau / Convertir un tableau en texte…
🧹Nettoyage simplifié : supprimez en un clin d’œil les espaces superflus, les sauts de section, les zones de texte ou les liens hypertexte. Pour encore plus d’outils de suppression, rendez-vous dans le groupe Supprimer…
➕Insertions créatives : insérez des séparateurs de milliers, une case à cocher, un bouton radio, un code QR, un code-barres ou plusieurs images. Découvrez-en davantage dans le groupe Insertion…
🔍Sélections précises : ciblez exactement les pages spécifiques, les tableaux, les formes ou les paragraphes de titre. Améliorez votre navigation grâce à davantage de fonctions de dé sélection…
⭐Améliorations phares : Naviguer vers n’importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les documents Windows / 11 outils de conversion Outils de...
🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !
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 !
✨ Kutools for Office – Une installation, cinq outils puissants !
Inclus Office Tab Pro·Kutools pour Excel·Kutools pour Outlook·Kutools pour Word·Kutools for PowerPoint
📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité
Meilleurs outils de productivité Office
Kutools pour Word- Outils 100+ pour Word
- 🤖Kutools IA Fonctionnalités:Assistant IA/Assistant en Temps Réel/Super Polish/Super Traduire/Rédaction IA/Correction AI
- 📘Maîtrise des documents:Diviser les pages/Fusionner les documents/Conversion par lots en PDF
- ✏Édition du contenu:Recherche et remplacement en lot/Redimensionner toutes les images
- 🧹Nettoyage simplifié:Supprimer les espaces superflus/Supprimer Saut de section
- ➕Insertions créatives:Insérer des séparateurs de milliers/Insérer Case à cocher/Créer Code QR
- 🌍Prend en charge plus de 40 langues : Kutools parle votre langue – plus de 40 langues disponibles !