Accéder au contenu principal

Comment comparer deux colonnes et mettre en évidence les données non correspondantes dans Excel ?

Author: Siluvia Last Modified: 2025-05-27

Comme le montre la capture d'écran ci-dessous, pour comparer deux colonnes de cellules adjacentes et mettre en évidence les données non correspondantes, vous pouvez essayer les méthodes décrites dans cet article.

Screenshot showing Excel columns with highlighted unmatched data

Comparer deux colonnes et mettre en évidence les données non correspondantes avec 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 avec un code VBA

Dans la capture d'écran ci-dessus, vous comparez les données de la Colonne A et de la Colonne B. Veuillez exécuter le code VBA suivant pour mettre en évidence les données non correspondantes.

1. Appuyez simultanément sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insertion > Module. Ensuite, copiez et collez le code suivant 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 apparaît, sélectionnez la première colonne que vous devez comparer, puis cliquez sur le bouton OK. Voir la capture d'écran.

Screenshot of the first Kutools dialog for selecting the first comparison column

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

Screenshot of the second Kutools dialog for selecting the second comparison column

5. Dans la boîte de dialogue comme le montre la capture d'écran ci-dessous, pour mettre en évidence les données non correspondantes, veuillez cliquer sur le Non.

Screenshot of the dialog prompting to highlight matched or unmatched data

Toutes les données non correspondantes entre les deux colonnes sont immédiatement mises en évidence. Voir la capture d'écran :

Screenshot showing highlighted unmatched data


Comparer deux colonnes et mettre en évidence les données non correspondantes avec Kutools pour Excel

Si vous souhaitez simplement vérifier et mettre en évidence si les valeurs des cellules dans une colonne existent dans une autre colonne ou non, par exemple comme le montre la capture d'écran ci-dessous, le chiffre 2 dans la colonne A n'existe pas dans la colonne B. Vous pouvez essayer l'utilitaire Comparaison des Plages de Kutools pour Excel.

Screenshot showing data in columns with an example of an unmatched cell in column A

Kutools pour Excel propose plus de 300 fonctionnalités avancées pour simplifier les tâches complexes, augmentant ainsi la créativité et l'efficacité. Intégré à des capacités d'IA, Kutools automatise les tâches avec précision, rendant la gestion des données facile et sans effort. Informations détaillées sur Kutools pour Excel...  Essai gratuit...

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

Screenshot of Kutools' Select Same & Different Cells option in Excel

2. Dans la boîte de dialogue Sélectionner les cellules identiques et différentes, vous devez configurer comme suit :

2.1 Sélectionnez la première colonne contenant les cellules non correspondantes que vous souhaitez mettre en évidence dans la zone Trouver les valeurs ;
2.2 Sélectionnez la deuxième colonne que vous souhaitez comparer dans la zone Selon ;
2.3 Dans la section Basé sur, choisissez l'option Par cellule ;
2.3 Choisissez l'option Valeur différente dans la section Trouver ;
2.4 Dans la section Traitement des résultats sélectionnés, cochez la case Couleur de fond de remplissage et spécifiez une couleur d'arrière-plan dans la liste déroulante ;
2.5 Cliquez sur le bouton OK. Voir la capture d'écran :

Screenshot of the Select Same & Different Cells dialog

3. Une boîte de dialogue apparaît alors pour vous indiquer combien de cellules sont uniquement dans la colonne A mais pas dans la colonne B, cliquez sur le bouton OK, et toutes les cellules correspondantes sont sélectionnées dans la colonne A.

Kutools pour Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant


Articles connexes :

Meilleurs outils de productivité pour Office

🤖 Kutools AI Aide : Révolutionner l'analyse des données basée sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les Fonctions améliorées
Fonctionnalités populaires : Trouver, mise en évidence ou marquer les doublons   |  Supprimer les lignes vides   |  Consolider les colonnes ou les cellules sans perdre de données   |   Arrondir sans formule ...
Super RECHERCHEV : RECHERCHEV avec critères multiples    RECHERCHEV avec valeurs multiples  |   Recherche multi-feuilles   |   Correspondance floue ....
Liste déroulante avancée : Créer rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante multi-sélection ....
Gestionnaire de colonnes : Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages & colonnes ...
Fonctionnalités en vedette : Mise au point de la grille   |  Affichage de conception   |   Barre de formule améliorée    Gestionnaire de classeur & feuille de calcul   |  Bibliothèque dAutoTexte (Auto Text)   |  Sélecteur de date   |  Fusionner les données   |  Crypter/Déchiffrer les cellules    Envoyer un e-mail par liste   |  Super Filtre   |   Filtre spécial (filtrer les cellules avec une police en gras/italique/barré...) ...
Top15 ensembles d'outils12 outils de texte (Ajouter du texte, Supprimer des caractères spécifiques, ...)   |   50+ types de graphiques (Diagramme de Gantt, ...)   |   40+ formules pratiques (Calculer lâge en fonction de la date de naissance, ...)   |   19 outils d'insertion (Insérer un code QR, Insérer une image depuis le chemin, ...)   |  12 outils de conversion (Convertir en mots, Conversion de devises, ...)   |  7 outils de fusion & division (Fusion avancée des lignes, Diviser les cellules, ...)   |   ... et plus

Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail

  • Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !