Macro excel pour comparer 2 onglets - Création de site à Mulhouse

Dans notre série dédiée à l'optimisation / l'automatisation des taches chronophages et fastidieuses, voyons aujourd'hui comment comparer facilement deux tableaux excel

Pour créer une macro Excel qui met en évidence les différences entre deux feuilles, vous pouvez utiliser les étapes suivantes :

Ouvrez le classeur Excel contenant les deux feuilles que vous voulez comparer.
Dans l’onglet « Affichage », cliquez sur le bouton « Macros » dans le groupe « Macros ».
Dans la boîte de dialogue « Macros », cliquez sur le bouton « Nouveau » pour créer une nouvelle macro.
Dans la boîte de dialogue « Nouvelle macro », entrez un nom pour la macro dans le champ « Nom de la macro » et cliquez sur le bouton « Créer ».
Dans la fenêtre « Microsoft Visual Basic pour Applications », entrez le code suivant en remplaçant « Feuille 1 » et « Feuille 2 » par les noms des feuilles que vous souhaitez comparer :

Sub MettreEnEvidence()

Dim feuille1 As Worksheet
Dim feuille2 As Worksheet

Set feuille1 = ActiveWorkbook.Sheets("Feuille1")
Set feuille2 = ActiveWorkbook.Sheets("Feuille2")

For Each cell In feuille1.UsedRange
    If cell.Value <> feuille2.Cells(cell.Row, cell.Column).Value Then
        cell.Interior.Color = RGB(255, 0, 0)
    End If
Next cell

End Sub

Enregistrez la macro et fermez la fenêtre « Microsoft Visual Basic pour Applications ».
Dans l’onglet « Affichage », cliquez à nouveau sur le bouton « Macros » et sélectionnez la macro que vous venez de créer dans la liste.
Cliquez sur le bouton « Exécuter » pour exécuter la macro et mettre en évidence toutes les différences entre les deux feuille