Comment comparer deux chaînes de caractères dans Excel afin d’évaluer leur similarité ou de mettre en évidence leurs différences ?
Dans certains cas, vous souhaitez simplement comparer deux cellules adjacentes contenant des chaînes de caractères et faire ressortir leurs similitudes ou différences dans Excel. Cet article vous présente deux méthodes efficaces pour y parvenir.
Comparer deux chaînes de caractères à l’aide d’une formule
Comparer deux chaînes de caractères pour évaluer leur similarité ou mettre en évidence leurs différences à l’aide d’un code VBA
Comparer deux chaînes de caractères à l’aide d’une formule
Comme illustré ci-dessous, si vous souhaitez simplement vérifier si les chaînes comparées correspondent ou non, appliquez la formule suivante.
1. Sélectionnez une cellule vide (C2), saisissez la formule =EXACT(A2;B2) dans la barre de formule, puis appuyez sur Entrée. Voir la capture d’écran :
Remarque : Dans la formule, A2 et B2 sont les cellules contenant les chaînes à comparer.
2. Maintenez la sélection sur la cellule contenant le résultat, puis faites glisser la poignée de recopie vers les cellules concernées pour obtenir l’ensemble des résultats de comparaison.
Un résultat FAUX indique que les chaînes comparées sont différentes, tandis qu’un résultat VRAI signifie qu’elles correspondent. Voir la capture d’écran :
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Comparer deux chaînes de caractères pour évaluer leur similarité ou mettre en évidence leurs différences à l’aide d’un code VBA
Si vous souhaitez comparer deux chaînes de caractères et faire ressortir leurs similitudes ou leurs différences, le code VBA ci-dessous est fait pour vous.
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, puis copiez-collez le code suivant dans la fenêtre Code.
Code VBA : Comparer deux colonnes de chaînes de caractères pour évaluer leur similarité ou mettre en évidence leurs différences
Sub highlight()
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 selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Font.ColorIndex = xlAutomatic
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value2 = xCell2.Value2 Then
If Not xDiffs Then xCell2.Font.Color = vbRed
Else
xLen = Len(xCell1.Value2)
For J = 1 To xLen
If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
Next J
If Not xDiffs Then
If J <= Len(xCell2.Value2) And J > 1 Then
xCell2.Characters(1, J - 1).Font.Color = vbRed
End If
Else
If J <= Len(xCell2.Value2) Then
xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub3. Appuyez sur la touche F5 pour exécuter le code. Dans la première boîte de dialogue Kutools pour Excel, sélectionnez la première colonne de chaînes de texte à comparer, puis cliquez sur le bouton OK.
4. La deuxième boîte de dialogue Kutools pour Excel s’ouvre alors ; veuillez sélectionner la deuxième colonne de chaînes, puis cliquez sur le bouton OK.
5. Dans la dernière boîte de dialogue Kutools pour Excel, si vous souhaitez comparer les chaînes pour évaluer leur similarité, cliquez sur le bouton Oui. Pour mettre en évidence les différences entre les chaînes comparées, cliquez sur le bouton Non. Voir la capture d’écran :
Vous pouvez alors consulter les résultats de la comparaison, comme illustré ci-dessous.
Articles associés :
- Comment comparer deux colonnes et mettre en évidence les données non appariées dans Excel ?
- Comment comparer exactement deux chaînes de caractères (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