Comment ajouter des séparateurs de milliers aux nombres dans les documents Word ?

Ajouter des séparateurs de milliers aux nombres dans un document Word peut grandement améliorer la lisibilité, surtout lorsqu'il s'agit de grands chiffres. Bien que Microsoft Word ne dispose pas d'une fonction directe pour ajouter des séparateurs de milliers, il existe des méthodes efficaces pour y parvenir en utilisant VBA (Visual Basic for Applications) ou un outil pratique comme Kutools pour Word.

Dans ce tutoriel, nous vous guiderons à travers les étapes pour ajouter des séparateurs de milliers aux nombres dans votre document Word en utilisant à la fois VBA et Kutools pour Word.

Ajouter des séparateurs de milliers avec VBA

Ajouter des séparateurs de milliers avec Kutools pour Word

Ajouter des séparateurs de milliers avec VBA

Insérer des séparateurs de milliers dans de grands nombres peut être fastidieux, surtout si vous devez le faire de manière répétée. En utilisant du code VBA, vous pouvez automatiser ce processus, vous permettant simplement de sélectionner un nombre et d'appuyer sur F5 pour ajouter instantanément les séparateurs.

1. Sélectionnez le nombre que vous souhaitez formater avec des séparateurs de milliers, puis appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez Insérer > Modulepuis copiez et collez le code suivant dans le Module éditeur.

   Sub InsertThousandSeparators()
       Dim selectedText As String
       Dim formattedText As String
       Dim decimalPos As Integer
       Dim wholePart As String
       Dim decimalPart As String
       Dim temp As String
       Dim i As Integer
       Dim charCount As Integer
       Dim trailingSpace As String
       Dim trailingParagraphMark As String
       
       If Selection.Type <> wdSelectionIP Then
           selectedText = Selection.Text
           trailingSpace = ""
           trailingParagraphMark = ""
           
           If Right(selectedText, 1) = " " Then
               trailingSpace = " "
               selectedText = Trim(selectedText)
           End If
           
           If Right(selectedText, 1) = Chr(13) Then
               trailingParagraphMark = Chr(13)
               selectedText = Left(selectedText, Len(selectedText) - 1)
           End If
           
           If IsNumeric(selectedText) Then
               decimalPos = InStr(1, selectedText, ".")
               
               If decimalPos > 0 Then
                   wholePart = Left(selectedText, decimalPos - 1)
                   decimalPart = Mid(selectedText, decimalPos + 1)
               Else
                   wholePart = selectedText
                   decimalPart = ""
               End If
               
               wholePart = Replace(wholePart, ",", "")
               
               temp = ""
               charCount = 0
               
               For i = Len(wholePart) To 1 Step -1
                   temp = Mid(wholePart, i, 1) & temp
                   charCount = charCount + 1
                   
                   If charCount Mod 3 = 0 And i > 1 Then
                       temp = "," & temp
                   End If
               Next i
               
               wholePart = temp
               
               If decimalPart <> "" Then
                   formattedText = wholePart & "." & decimalPart
               Else
                   formattedText = wholePart
               End If
               
               Selection.Text = formattedText & trailingSpace & trailingParagraphMark
           Else
               MsgBox "Please select a valid number."
           End If
       Else
           MsgBox "Please select a number first."
       End If
   End Sub

3. Appuyez sur la touche F5, et les séparateurs de milliers seront ajoutés au nombre sélectionné.

   

4. Pour ajouter des séparateurs à un autre nombre, sélectionnez simplement le nouveau nombre, puis revenez à la fenêtre Module et appuyez à nouveau sur F5.

Ajouter des séparateurs de milliers avec Kutools pour Word

Si vous souhaitez insérer des séparateurs dans plusieurs nombres d'une sélection ou dans l'ensemble du document Word, l'utilitaire Ajouter un Séparateur de Milliers de Kutools pour Word peut résoudre cette tâche en quelques clics.

Après avoir installé Kutools pour Word, suivez ces étapes :

1. Pour ajouter des séparateurs de milliers à tous les nombres dans l'ensemble du document, ne sélectionnez aucune donnée, puis cliquez sur Kutools > Insérer > Ajouter un Séparateur de Milliers.

   

2. Une boîte de dialogue apparaît vous demandant si vous souhaitez appliquer cette fonction à l'ensemble du document, cliquez sur Oui.

   

3. Maintenant, tous les nombres ont eu des séparateurs de milliers insérés.

   

Démo : Ajouter des séparateurs de milliers aux nombres dans un document Word

Meilleurs outils de productivité pour Office

Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones de texte / Liens hypertexte / Pour plus d'outils de suppression, rendez-vous dans le groupe Supprimer...

➕ Insertion créative : Insérer des séparateurs de milliers / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...

🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...

⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...

👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀

Téléchargement gratuit     Acheter maintenant     En savoir plus sur Kutools pour Word

 

Meilleurs outils de productivité pour Office

Kutools pour Word - 100+ outils pour Word

• 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
• 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
• ✏ Édition de contenu : Recherche et remplacement en lot / Redimensionner toutes les images
• 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
• ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools