Comment comparer deux colonnes et mettre en évidence les données qui ne correspondent pas dans Excel ?
Comme le montre la capture d’écran ci-dessous, pour comparer deux colonnes de cellules adjacentes et faire ressortir les données qui ne correspondent pas, découvrez les méthodes présentées dans cet article.

Comparer deux colonnes et mettre en évidence les données non correspondantes à l’aide d’un code VBA
Comparer deux colonnes et mettre en évidence les données non correspondantes avec Kutools pour Excel
Comparer deux colonnes et mettre en évidence les données non correspondantes à l’aide d’un code VBA
Comme le montre la capture d’écran ci-dessus, vous comparez les données des colonnes A et B. Exécutez le code VBA suivant pour mettre en évidence les éléments qui ne correspondent pas.
1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Copiez ensuite le code suivant et collez-le dans la fenêtre Code.
Code VBA : Comparer deux colonnes et mettre en évidence les données non correspondantes
Sub Dyeware()
Dim xRg1 As Range
Dim xRg2 As Range
Dim xTxt As String
Dim xCell1 As Range
Dim xCell2 As Range
Dim I As Long
Dim J As Integer
Dim xLen As Integer
Dim xDiffs As Boolean
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
If xRg1 Is Nothing Then Exit Sub
If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
lTwo:
Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
If xRg2 Is Nothing Then Exit Sub
If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
MsgBox "Multiple ranges or columns have been selected", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
If xRg1.CountLarge <> xRg2.CountLarge Then
MsgBox "Two ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Interior.ColorIndex = xlNo
xRg1.Interior.ColorIndex = xlNo
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value = xCell2.Value Then
If Not xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
Else
If xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
End If
Next
Application.ScreenUpdating = True
End Sub 3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools pour Excel qui s’ouvre, sélectionnez la première colonne à comparer, puis cliquez sur le bouton OK. Voir la capture d’écran.

4. Sélectionnez ensuite la deuxième colonne à comparer dans la boîte de dialogue suivante Kutools pour Excel.

5. Dans la boîte de dialogue illustrée ci-dessous, cliquez sur le bouton Non pour mettre en évidence les données non correspondantes.

Toutes les données qui ne correspondent pas entre les deux colonnes sont alors immédiatement mises en évidence. Voir la capture d’écran :

Comparer deux colonnes et mettre en évidence les données non correspondantes avec Kutools pour Excel
Si vous souhaitez simplement identifier et mettre en évidence si les valeurs d’une colonne existent ou non dans une autre colonne — par exemple, comme illustré ci-dessous, le chiffre 2 de la colonne A n’existe pas dans la colonne B —, vous pouvez utiliser l’utilitaire Comparer des plages de Kutools pour Excel.

1. Cliquez sur Kutools > Insertion > Sélectionner les cellules identiques/différentes. Voir la capture d’écran :

2. Dans la boîte de dialogue Sélectionner les cellules identiques/différentes, configurez les options comme suit :

3. Une boîte de dialogue s’ouvre alors pour vous indiquer combien de cellules figurent uniquement dans la colonne A et non dans la colonne B. Cliquez sur OK, et toutes les cellules correspondantes sont automatiquement sélectionnées dans la colonne A.
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Articles associés :
- Comment comparer deux chaînes dans Excel pour évaluer leur similarité ou identifier précisément leurs différences ?
- Comment comparer exactement deux chaînes (en tenant compte de la casse) dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
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 !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels