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

Supprimer Ligne en double d’un tableau dans un document Word (Guide complet)

AuteurSun Date de modification

Les lignes en double dans un tableau Word peuvent rendre votre document confus, peu professionnel et plus difficile à analyser – notamment lorsqu’il s’agit de données copiées, de rapports importés ou de résultats d’enquête. Malheureusement, Microsoft Word ne propose pas de fonction « Supprimer les doublons » intégrée pour les tableaux, contrairement à Excel.
La bonne nouvelle ? Vous disposez tout de même de plusieurs méthodes fiables pour éliminer les lignes en double dans Word. Voici trois approches pratiques, de la plus simple à l’automatisation avancée, chacune accompagnée d’instructions claires et détaillées.

Supprimer les lignes en double du tableau

Supprimer Ligne en double d’un tableau dans Word

Conclusion


Méthode 1 : Supprimer Ligne en double en utilisant Excel

Comme Microsoft Excel est spécialement conçu pour la gestion des données, la méthode la plus fiable pour éliminer les doublons consiste à transférer temporairement votre tableau vers Excel, puis à le réintégrer dans Word.

  1. Copier le tableau :
    Dans Word, placez le curseur sur votre tableau, puis cliquez sur l’icône en forme de croix située en haut à gauche pour sélectionner l’intégralité du tableau. Appuyez sur Ctrl + C.
    copier le tableau depuis Word
  2. Coller dans Excel :
    Ouvrez un classeur Excel vierge, sélectionnez la cellule A1, puis appuyez sur Ctrl + V.
  3. Supprimer les doublons dans Excel :
    • Sélectionnez la plage de données.
    • Accédez à l’onglet Données dans le ruban supérieur.
    • Cliquez sur Supprimer les doublons dans le groupe Données de l’onglet Outils.
    • Assurez-vous que toutes les colonnes sont cochées, puis cliquez sur OK.
      Supprimer les doublons dans Excel
    • Excel affichera le nombre de Ligne en double supprimés.
      Excel affichera le nombre de lignes en double supprimées
  4. Transfert retour :
    Copiez les données nettoyées dans Excel, revenez à votre document Word, supprimez l’ancien tableau, puis appuyez sur Ctrl + V pour coller les lignes uniques.
Avantages
  • Très précis
  • Aucune programmation requise
  • Fonctionne efficacement avec les grands tableaux
Limitations
  • Fonctionne uniquement avec un tableau à la fois
  • Nécessite de basculer entre Word et Excel

Méthode 2 : Supprimer Ligne en double en utilisant du code VBA (à partir d’un ou de tous les tableaux)

Si vous travaillez régulièrement avec de grands tableaux Word et recherchez une automatisation intégrée directement au document, le VBA constitue une solution idéale. Cette méthode compare les lignes entre elles et élimine les doublons en temps réel, directement dans Word.

Ce code VBA vous permet de supprimer Ligne en double d’un tableau spécifique ou de tous les tableaux du document Word actuel, en conservant uniquement la première occurrence de chaque ligne unique.

⚠️ Astuce : Sauvegardez toujours votre document avant d’exécuter du code VBA.
  1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
  2. Cliquez sur Insertion>ModulePour créer un nouveau module, copiez-collez le code VBA suivant dans la fenêtre du module.
    Public Sub DeleteDuplicateRowsClean()
        Dim xTable As Table
        Dim xDic As Object
        Dim i As Long, j As Long
        Dim xStr As String
    
        If ActiveDocument.Tables.Count = 0 Then
            MsgBox "There is no table in this file", vbInformation, "Kutoolsfor word"
            Exit Sub
        End If
    
        Set xDic = CreateObject("Scripting.Dictionary")
        Application.ScreenUpdating = False
        If Selection.Information(wdWithInTable) Then
            ProcessTable Selection.Tables(1), xDic
        Else
            For i = 1 To ActiveDocument.Tables.Count
                ProcessTable ActiveDocument.Tables(i), xDic
                xDic.RemoveAll
            Next i
        End If
    
        Application.ScreenUpdating = True
        MsgBox "Complete!", vbInformation
    End Sub
    
    
    Private Sub ProcessTable(targetTable As Table, dic As Object)
        Dim r As Long
        Dim rowText As String
    
        For r = targetTable.Rows.Count To 1 Step -1
            rowText = targetTable.Rows(r).Range.Text
            If dic.Exists(rowText) Then
                targetTable.Rows(r).Delete
            Else
                dic.Add rowText, True
            End If
        Next r
    End Sub
          
  3. Fermez la fenêtre de code et procédez de l’une des manières suivantes :
    • Pour supprimer les doublons à partir d’un tableau spécifique :
      Cliquez n’importe où à l’intérieur du tableau cible.
    • Pour supprimer les doublons de tous les tableaux :
      Assurez-vous que le curseur ne se trouve dans aucun tableau.
  4. Appuyez sur Alt + F8, sélectionnez la macro DeleteDuplicateRowsClean et cliquez sur Exécuter.

Résultat :
Les lignes en double sont automatiquement supprimées du tableau sélectionné ou de tous les tableaux du document.

RemarqueLe code ci-dessus est sensible à la casse. Si vous souhaitez supprimer les lignes en double sans tenir compte de la casse, utilisez le code suivant :
Public Sub DeleteDuplicateRowsIgnoreCase()
    Dim xTable As Table
    Dim xDic As Object
    Dim i As Long

    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "There are no tables", vbInformation, "Kutoolsfor word"
        Exit Sub
    End If
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1

    Application.ScreenUpdating = False

    If Selection.Information(wdWithInTable) Then
        ProcessTable Selection.Tables(1), xDic
    Else
        For i = 1 To ActiveDocument.Tables.Count
            xDic.RemoveAll
            ProcessTable ActiveDocument.Tables(i), xDic
        Next i
    End If

    Application.ScreenUpdating = True
    MsgBox "complete", vbInformation
End Sub

Private Sub ProcessTable(targetTable As Table, dic As Object)
    Dim r As Long
    Dim rowText As String
    For r = targetTable.Rows.Count To 1 Step -1
        rowText = targetTable.Rows(r).Range.Text
        If dic.Exists(rowText) Then
            targetTable.Rows(r).Delete
        Else
            dic.Add rowText, True
        End If
    Next r
End Sub
    

Méthode 3 : Supprimer les lignes/colonnes Ligne en double à l’aide de Kutools pour Word (à partir d’un ou de tous les tableaux)

Si vous recherchez la méthode la plus rapide et la plus conviviale pour supprimer Ligne en double dans les tableaux Word, Kutools pour Word est la solution idéale. Contrairement aux méthodes manuelles ou aux scripts VBA, Kutools propose une fonctionnalité qui vous permet de nettoyer les données d’un seul tableau ou de tous les tableaux du document en quelques clics seulement. Pas de codage, pas de copie vers Excel, ni de configuration complexe – ce qui le rend particulièrement adapté aux utilisateurs travaillant fréquemment avec de grands tableaux ou plusieurs tableaux et souhaitant obtenir des résultats précis instantanément.

Après avoir téléchargé et installé Kutools pour Word, suivez les étapes ci-dessous :

  1. Accédez à l’onglet KUTOOLS PLUS, puis cliquez sur Tableau > Supprimer les lignes/colonnes vides pour ouvrir la boîte de dialogue.
    cliquer sur la fonction Supprimer les lignes/colonnes vides
  2. Dans la boîte de dialogue Supprimer les lignes/colonnes vides ou Ligne en doubledans le tableau, spécifiez les options suivantes :
    1. Choisissez la portée (Rechercher dans)
      Dans la liste « Rechercher dans » (Liste déroulante), sélectionnez l’une des options suivantes :
      • Tableau(x) sélectionné(s) – Supprime uniquement les lignes en double des tableaux que vous avez sélectionnés.
      • Tous les tableaux du document actif – Supprime les lignes en double de tous les tableaux du document actuel.
    2. Spécifiez le type de suppression, puis sélectionnez Ligne ou Colonne à supprimer.
    3. Sélectionnez Ligne en double / Colonne pour indiquer si vous souhaitez supprimer les lignes ou les colonnes en double.
    4. Définissez des options facultatives
      • Sensible à la casse (facultatif) :
        Activez cette option si vous souhaitez que Kutools considère les textes dont la casse diffère comme identiques (valeur différente).
      • Supprimer les lignes vides (facultatif) :
        Cochez cette case pour supprimer également les lignes vides en même temps.
    5. Cliquez sur OK.
      spécifier les options dans la boîte de dialogue

Résultat :
Kutools analyse instantanément le(s) tableau(x) spécifié(s) et supprime les lignes ou colonnes en double que vous avez indiquées.
Supprimer les lignes/colonnes en double à l’aide de Kutools for Word

Avantages
  • Extrêmement rapide
  • Fonctionne avec un seul tableau, des tableaux sélectionnés ou tous les tableaux
  • Aucun VBA ni Excel requis
  • Idéal pour les utilisateurs non techniques
Kutools pour Word

Kutools pour Word propose des outils puissants pour les tableaux afin de supprimer les doublons ou les Lignes vides en quelques clics seulement – sans codage, sans Excel ni configuration complexe requise.


Conclusion

Supprimer Ligne en double des tableaux dans Word peut s’avérer difficile, car Word ne propose pas d’outil intégré de dédoublonnage. Toutefois, en choisissant la bonne méthode, vous pouvez nettoyer vos données efficacement et avec précision.

  • Excel est une solution fiable pour travailler avec un seul tableau et gérer de grandes quantités de données, surtout si vous privilégiez une approche familière, sans code.
  • L'utilisation de code VBA convient aux utilisateurs avancés souhaitant automatiser la suppression des lignes en double dans un ou plusieurs tableaux, mais elle exige des compétences techniques ainsi que des documents autorisant les macros.
  • Utiliser Kutools pour Word est la solution la plus rapide et la plus conviviale : supprimez les lignes en double d’un ou de tous les tableaux en quelques clics seulement, sans passer par Excel ni écrire une seule ligne de code VBA.

En choisissant la méthode la mieux adaptée à votre niveau de compétence et à la complexité de votre document, vous gardez vos tableaux Word propres, précis et faciles à gérer – tout en gagnant du temps et en évitant les tâches manuelles répétitives.