Accéder au contenu principal

Kutools for Office — Une Suite. Cinq Outils. Accomplissez Plus.

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

Author Sun Last modified

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 good idea

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é.

    Thousand separators are inserted into the selected number

  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.

Kutools for Word,doté d'IA 🤖, offre plus de 100 fonctionnalités pratiques pour simplifier vos tâches.

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.
    Add Thousand Separator option on the Kutools tab on the ribbon
  2. Une boîte de dialogue apparaît vous demandant si vous souhaitez appliquer cette fonction à l'ensemble du document, cliquez sur Oui.
    Confirmation dialog saying 'Do you want to add thousand separators to all numbers in the whole document?'
  3. Maintenant, tous les nombres ont eu des séparateurs de milliers insérés.
    Thousand separators are inserted into all numbers

Remarques :

  • Si vous souhaitez ajouter des séparateurs de milliers aux nombres dans une sélection spécifique, sélectionnez d'abord la section, puis cliquez sur Kutools > Insérer > Ajouter un Séparateur de Milliers.
    Thousand separators are inserted into numbers in the selected range
  • Pour supprimer les séparateurs de milliers, cliquez sur Kutools > Supprimer > Supprimer tous les séparateurs de milliers dans les plages sélectionnées.
    Remove Thousand Separators option on the Kutools tab on the ribbon

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

Découvrez l'Kutools / Kutools Plus dans cette vidéo de Kutools for Word. Profitez de plus de 100 fonctionnalités et d'utilitaires d'IA gratuits à vie. Téléchargez maintenant !

Meilleurs outils de productivité pour Office

Kutools pour Word – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !

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

📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...

✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...

🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone 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 / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...

🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...

⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...

🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Envie d’essayer ces fonctionnalités ? Téléchargez Kutools pour Word dès maintenant ! 🚀
 

✨ Kutools pour Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint

📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word

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