Supprimer rapidement Colonne en double d’un tableau Word (3 méthodes)

Lorsque vous travaillez avec des tableaux dans Microsoft Word, vous remarquerez peut-être que certaines colonnes contiennent exactement les mêmes données. Ces colonnes en double rendent votre tableau plus large que nécessaire et plus difficile à gérer. Comme Word ne propose pas d’outil intégré pour supprimer automatiquement les colonnes en double, les identifier et les supprimer manuellement peut s’avérer très chronophage et fastidieux, surtout dans les grands tableaux.

Dans ce tutoriel, découvrez trois méthodes efficaces pour supprimer les colonnes entièrement identiques dans les tableaux Word. Nous commencerons par une solution de contournement utilisant la transposition dans Excel, puis nous verrons comment éliminer les doublons directement dans Word grâce à Kutools, et enfin comment automatiser ce nettoyage à l’aide d’une macro VBA. Vous pourrez ainsi choisir l’approche la mieux adaptée à votre situation.

• Méthode 1 : Supprimer Colonne en double à l’aide d’Excel
• Méthode 2 : Supprimer Colonne en double avec Kutools pour Word
• Méthode 3 : Supprimer Colonne en double à l’aide de VBA

Supprimer Colonne en double à l’aide d’Excel (solution de contournement par transposition)

Cette méthode constitue une solution pratique pour les utilisateurs disposant d’Excel. Excel permet de supprimer les lignes en double via Données > Supprimer les doublons. Comme Excel supprime les doublons par lignes plutôt que par colonnes, vous devez d’abord transposer le tableau afin que les colonnes deviennent des lignes, supprimer les doublons, puis retransposer les données pour retrouver leur disposition initiale :

Office Tab

Navigation par onglets pour Word, Excel, PowerPoint et bien plus encore — exactement comme dans un navigateur web, avec un basculement fluide au sein d’une seule et même fenêtre.

Téléchargement gratuitEn savoir plus

1. Placez le pointeur de la souris sur le tableau contenant des doublons pour faire apparaître la poignée de déplacement en haut à gauche, puis cliquez dessus afin de sélectionner l’ensemble du tableau.

   

2. Appuyez sur Ctrl + C pour copier le tableau.
3. Ouvrez Excel, cliquez sur une cellule vide, puis appuyez sur Ctrl + V pour coller le tableau.
4. Sélectionnez le tableau collé dans Excel, puis appuyez à nouveau sur Ctrl + Cpour le copier.
   • Recopiez à nouveau le tableau, car Excel doit d’abord le reconnaître comme une plage native de feuille de calcul pour que l’option Transposer devienne disponible.
5. Cliquez avec le bouton droit sur une autre cellule vide, choisissez Collage spécial>Transposer(Vous trouverez l’option)Transposerà deux endroits, comme indiqué ci-dessous).

   

   • Cela transforme les colonnes d’origine en lignes, permettant ainsi à Excel de détecter correctement les colonnes en double.
6. Sélectionnez les données transposées, puis accédez à Données>Supprimer les doublons.

   

7. Dans la boîte de dialogue, décochez Inclure les titres, puis cliquez sur OKpour supprimer Ligne en double des données transposées.

   

8. Copiez les données nettoyées (plage H1:L4 dans la capture d’écran ci-dessous), puis cliquez avec le bouton droit sur une cellule vide et utilisez Collage spécial>Transposerà nouveau pour restaurer l’orientation d’origine.

   

9. Copiez le résultat final et collez-le à nouveau dans Word.

   

Supprimer Colonne en double avec Kutools pour Word

Si vous avez installé Kutools pour Word, c’est la méthode la plus efficace et la plus pratique pour supprimer les colonnes en double. Kutools vous permet d’éliminer directement les colonnes en double dans Word, que vous souhaitiez traiter le tableau actuel, les tableaux sélectionnés ou tous les tableaux du document actif. Inutile de copier le tableau dans Excel ni d’avoir recours à des solutions de contournement : c’est la solution la plus rapide et la plus pratique.

1. Sélectionnez le ou les tableaux spécifiques dont vous souhaitez supprimer la colonne en double. Ignorez cette étape si vous comptez traiter tous les tableaux du document actif.
2. Cliquez sur KUTOOLS PLUS>Tableau>Supprimer les lignes/colonnes vides.

   

3. Dans la boîte de dialogue :
   1. Définissez Rechercher danssur l’une des options suivantes :
      • Tableau sélectionné(s) si vous souhaitez traiter uniquement les tableaux sélectionnés.
      • Tous les tableaux du document actif si vous souhaitez traiter tous les tableaux du document.
   2. Sélectionnez la colonne.
   3. Sélectionnez la Colonne en double.
   4. Cliquez sur OKpour supprimer Colonne en double.

      

Toutes les colonnes strictement identiques sont supprimées du tableau sélectionné, des tableaux sélectionnés ou de l’ensemble des tableaux du document actif, selon l’option choisie.

Supprimer Colonne en double à l’aide de VBA

Si vous travaillez régulièrement avec de grands tableaux et que vous devez supprimer les colonnes en double à plusieurs reprises, une macro VBA peut vous faire gagner un temps précieux. Elle compare automatiquement les colonnes et supprime celles qui sont strictement identiques, éliminant ainsi toute vérification manuelle.

1. Cliquez à l’intérieur du tableau que vous souhaitez modifier dans Word.
2. Appuyez sur Alt + F11 pour ouvrir l’éditeur VBA.
3. Cliquez sur Insertion>Module.

   

4. Collez le code suivant dans le module.

   Sub RemoveDuplicateColumnsInSelectedTable()
       Dim tbl As Table
       Dim c1 As Long, c2 As Long
       Dim r As Long
       Dim isDup As Boolean
   
       If Selection.Information(wdWithInTable) = False Then
           MsgBox "Place the cursor inside the table first."
           Exit Sub
       End If
   
       Set tbl = Selection.Tables(1)
   
       For c1 = tbl.Columns.Count To 2 Step -1
           For c2 = c1 - 1 To 1 Step -1
   
               isDup = True
   
               For r = 1 To tbl.Rows.Count
                   If CleanCellText(tbl.Cell(r, c1).Range.Text) <> CleanCellText(tbl.Cell(r, c2).Range.Text) Then
                       isDup = False
                       Exit For
                   End If
               Next r
   
               If isDup Then
                   tbl.Columns(c1).Delete
                   Exit For
               End If
           Next c2
       Next c1
   
       MsgBox "Done. Duplicate columns removed."
   End Sub
   
   Private Function CleanCellText(ByVal s As String) As String
       s = Replace(s, Chr(13), "")
       s = Replace(s, Chr(7), "")
       CleanCellText = Trim$(s)
   End Function

5. Appuyez sur F5 pour exécuter la macro.
6. Une boîte de dialogue de confirmation s’affiche avec le message : Terminé. Colonne en double supprimée. Cliquez sur OK pour fermer le message.

   

Toutes les colonnes strictement identiques du tableau sélectionné sont automatiquement supprimées, ne conservant que des colonnes uniques dans votre tableau Word.

Quelle méthode vous convient le mieux ?