Vous pouvez utiliser les méthodes suivantes pour comparer les données de deux colonnes Microsoft Excel feuille de calcul et rechercher les entrées en double. 

Méthode 1 : utiliser une formule de feuille de calcul

  1. Commencez Excel.

  2. 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

  3. Tapez la formule suivante dans la cellule B1 :

    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

  4. Sélectionnez les cellules B1 à B5.

  5. Dans Excel 2007 et versions ultérieures d'Excel, sélectionnez Remplir le groupe Édition, puis Vers le 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 calcul

Avertissement : Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie soit exprimée, soit implicite. Cela inclut, sans s'y limiter, les garanties implicites de qualité marchande ou d'aptitude à un usage particulier. Cet article part du principe que vous êtes familiarisé avec le langage de programmation utilisé pour créer et déboguer des procédures. Les ingénieurs du support technique Microsoft peuvent vous aider à expliquer les fonctionnalités d'une procédure particulière. Toutefois, ils ne modifieront pas ces exemples pour fournir des fonctionnalités ou procédures de construction supplémentaires afin de répondre à vos besoins spécifiques.

Pour utiliser une Visual Basic macro afin de comparer les données dans deux colonnes, utilisez la procédure de l'exemple suivant :

  1. Démarrez Excel.

  2. Appuyez sur Alt+F11 pour démarrer l'éditeur Visual Basic'édition.

  3. Dans le menu Insertion, sélectionnez Module.

  4. 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
  5. Appuyez sur Alt+F11 pour revenir à Excel.

    1. 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

  6. Sélectionnez la cellule A1 à A5.

  7. Dans Excel 2007 et versions ultérieures de Excel, sélectionnez l'onglet Développeur, puis sélectionnez Macros dans le groupe Code.

    Remarque : Si vous ne voyez pas l'onglet Développeur, vous deront peut-être l'activer. Pour ce faire, sélectionnez Options >fichiers > Personnaliser le ruban,puis sélectionnez l'onglet Développeur dans la zone de personnalisation du côté droit.

  8. Cliquez Find_Matches,puis sur Exécuter.

    Les numéros en double sont affichés dans la colonne B. Les numéros correspondants seront placés à côté 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

Besoin d’aide ?

Développez vos compétences
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoindre Microsoft Insider

Ces informations vous ont-elles été utiles ?

Dans quelle mesure êtes-vous satisfait(e) de la qualité de la traduction ?
Qu’est-ce qui a affecté votre expérience ?

Nous vous remercions pour vos commentaires.

×