Vous pouvez utiliser les méthodes suivantes pour comparer des données dans deux colonnes de feuille de calcul Microsoft Excel et rechercher des entrées en double.
Méthode 1 : utiliser une formule de feuille de calcul
-
Démarrez Excel.
-
Dans une nouvelle feuille de calcul, entrez les données suivantes à titre d’exemple (laissez la colonne B vide) :
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Tapez la formule suivante dans la cellule B1 : =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)
-
Sélectionnez la cellule B1 à B5.
-
Sélectionnez Remplir dans le groupe Édition, puis sélectionnez Bas. Les numéros en double sont affichés dans la colonne B, comme dans l’exemple suivant :
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Méthode 2 : utiliser une macro Visual Basic
Avertissement : Microsoft fournit des exemples de programmation à des fins d’illustration uniquement, sans garantie exprimée ou implicite. Cela inclut, sans s’y limiter, les garanties implicites de qualité commerciale ou d’adéquation à un usage particulier. Cet article part du principe que vous êtes familiarisé avec le langage de programmation présenté et avec les outils utilisés pour créer et déboguer des procédures. Les ingénieurs du support Microsoft peuvent vous aider à expliquer les fonctionnalités d’une procédure particulière. Toutefois, ils ne modifient pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures pour répondre à vos besoins spécifiques.
Pour utiliser une macro Visual Basic pour comparer les données dans deux colonnes, suivez les étapes décrites dans l’exemple suivant :
-
Démarrez Excel.
-
Appuyez sur Alt+F11 pour démarrer l’éditeur de Visual Basic.
-
Dans le menuInsérer, sélectionnez Module.
-
Entrez le code suivant dans une feuille de module :
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub -
Appuyez sur Alt+F11 pour revenir à Excel.
-
Entrez les données suivantes à titre d’exemple (laissez la colonne B vide) :
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Sélectionnez la cellule A1 à A5.
-
Sélectionnez l’onglet Développeur, puis macros dans le groupe Code .
Remarque : Si l’onglet Développeur ne s’affiche pas, vous devrez peut-être l’activer. Pour ce faire, sélectionnez Fichier > Options > Personnaliser le ruban, puis sélectionnez l’onglet Développeur dans la zone de personnalisation sur le côté droit.
-
Cliquez sur Find_Matches, puis cliquez sur Exécuter. Les nombres en double sont affichés dans la colonne B. Les nombres correspondants seront placés en regard de la première colonne, comme illustré ici :
A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
