KutoolsforOffice — Une solution unique, cinq outils puissants.Faire plus avec moins d'efforts.Soldes de mars : 20 % de réduction

Comment ajouter un séparateur de milliers aux nombres dans les documents Word ?

AuteurSun Date de modification

Ajouter un séparateur de milliers aux nombres dans un document Word améliore considérablement la lisibilité, surtout pour les chiffres élevés. Même si Microsoft Word ne propose pas de fonctionnalité dédiée à cet effet, des solutions efficaces existent — notamment via VBA (Visual Basic for Applications) ou un outil pratique comme Kutools pour Word.

Dans ce tutoriel, nous vous guiderons pas à pas pour ajouter un séparateur de milliers aux nombres de votre document Word, à la fois à l’aide de VBA et de Kutools pour Word.

Ajouter un séparateur de milliers avec VBA

Ajouter un séparateur de milliers avec Kutools pour Word bonne idée

Ajouter un séparateur de milliers avec VBA

Insérer des séparateurs de milliers dans les grands nombres peut vite devenir fastidieux, surtout si vous devez le faire à plusieurs reprises. Grâce à un code VBA, vous pouvez automatiser cette tâche : il vous suffit 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 pour Applications.
  2. Cliquez sur Insertion>Module, puis copiez et collez le code suivant dans l’éditeur Module. 
    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é.

    Des séparateurs de milliers sont insérés dans le nombre sélectionné

  4. Pour ajouter des séparateurs à un autre nombre, il suffit de sélectionner ce nouveau nombre, puis de revenir à la fenêtre Module et d’appuyer à nouveau sur F5.

Ajouter un séparateur de milliers avec Kutools pour Word

Si vous souhaitez insérer des séparateurs de milliers dans plusieurs nombres au sein d’une sélection ou dans l’ensemble du document Word, l’utilitaire Ajouter un séparateur de milliers de Kutools pour Word vous permet d’accomplir cette tâche en quelques clics seulement.

Kutools pour Word

Kutools pour Word vous permet d’accomplir plus rapidement vos tâches quotidiennes sur vos documents grâce à des outils pratiques intégrés directement dans Microsoft Word — sans codage ni configuration complexe.

  • Rédaction, révision, traduction et résumé assistés par l’IA
  • Recherche et remplacement en lot dans tous vos documents
  • Fusionnez et divisez facilement des documents Word
  • Conversion groupée entre Word et PDF
TéléchargerEn savoir plus

Après avoir installé Kutools pour Word, procédez comme suit :

  1. Pour appliquer Ajouter un séparateur de milliers à tous les nombres du document entier, ne sélectionnez aucune donnée et cliquez sur Kutools>Insertion>Ajouter un séparateur de milliers.
    Option Ajouter un séparateur de milliers dans l’onglet Kutools du ruban
  2. Une boîte de dialogue s’ouvre pour vous demander si vous souhaitez appliquer cette fonction à Le document entier ; cliquez sur Oui.
    Boîte de dialogue de confirmation indiquant « Voulez-vous ajouter des séparateurs de milliers à tous les nombres du document entier ? »
  3. Tous les nombres sont désormais dotés de séparateurs de milliers.
    Des séparateurs de milliers sont insérés dans tous les nombres

Remarques :

  • Si vous souhaitez Ajouter un séparateur de milliers aux nombres dans une sélection spécifique, sélectionnez d’abord la section, puis cliquez sur Kutools>Insertion>Ajouter un séparateur de milliers.
    Des séparateurs de milliers sont insérés dans les nombres de la plage sélectionnée
  • Pour supprimer les séparateurs de milliers, cliquez sur Kutools>Supprimer>Supprimer tous les séparateurs de milliers dans la plage sélectionnée.
    Option Supprimer les séparateurs de milliers dans l’onglet Kutools du ruban

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

Kutools pour Word enrichit Microsoft Word d’un large éventail d’outils pratiques, vous permettant de gagner du temps et de réduire les tâches répétitives lors de l’édition quotidienne de vos documents.

TéléchargerEn savoir plus

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 !

Kutools for Word onglets du ruban
 
 

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

Téléchargement gratuitAcheter maintenantEn savoir plus sur Kutools