Macro spécifique pour comparaison Excel

Bonjour,

Je suis nouvelle sur le forum après avoir lu pas mal de sujet

Malheureusement je n'arrive pas à résoudre mon problème de comparaison de fichiers malgrès les nombreux exemples.

Objectif : J'aimerai pouvoir comparer deux fichiers qui normalement devrait être identique mais si ce n'est pas le cas j'aimerai pouvoir avoir une alerte avec l'éléments en plus dans le fichier. Connaissez vous une macro permettant de faire ça automatiquement ? J'ai mis en PJ deux fichiers 1 & 2. Le fichier 2 contient des valeurs supplémentaires que j'aimerai retrouver dans un nouveau fichier. J'ai mis seulement 4 colonnes mais je peux en avoir par moment jusqu'a 20 avec de nombreuses lignes ...

Un grand merci pour vos conseils d'experts

Bonne journée et bon weekend à vous tous.

Caro

Bonjour Caroline64, le forum,

Un essai....

La macro est sur le fichier 1 (d'où l'extension .xlsm)

Principe: la macro ouvre le classeur FICHIER 2 (chemin à adapter) et compare.

Un message t'affiche l'adresse des cellules différentes .

critères i et j à adapter (i pour ligne 1 à 10, j pour colonnes 1 à 4)

 Sub Ouvre_compare()

        Dim ws1 As Worksheet, ws2 As Worksheet

        Dim i As Integer, j As Integer, msg As String

        Workbooks.Open ("C:\Users\maison\Desktop\FICHIER 2.xlsx")
        Set ws1 = ActiveWorkbook.Worksheets("Feuil1")
        'Set ws1 = Nothing

       Set ws2 = ThisWorkbook.Worksheets("Feuil1")

          For i = 1 To 10
           For j = 1 To 4
            If ws2.Cells(i, j).Value <> ws1.Cells(i, j).Value Then msg = msg & "différence" & Cells(i, j).Address & "." & Chr(10)
           Next j
          Next i

         MsgBox msg
    End Sub

Cordialement,