Macro comparaison fichier

[sauplau]

Bonjour,
J'ai trouvé une macro comparaison de fichier qui fonctionne bien
mais je voudrais y rajouter une petite subtilité.
Apres avoir comparé les fichiers je voudrais qu'il prenne chaque ligne ou il ya une difference et qui les stocke dans un 4 ieme onglet...
mes connaissance en vba sont loin de m'aider...

Pourriez vous m'aider?
Merci encore

Sub TestRésultat()
'
' Macro1 Macro
'
Dim CellPtr
Dim X
Dim Z
Dim Var
Var = InputBox(prompt:="tapez la plage de cellule a comparer (ex: A1:Z200) (Max=A1:IV30000).")
Worksheets("Fichier N°2").Select
Set X = Worksheets("Fichier N°1").Range(Var)
Set Z = Worksheets("Fichier N°2").Range(Var)
Z.Select
Selection.Interior.ColorIndex = xlNone
For CellPtr = 1 To X.Count
If X(CellPtr) = Z(CellPtr) Then
Z(CellPtr).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
End If
Next CellPtr
Z.Select
If Selection.Interior.ColorIndex = 15 Then
MsgBox prompt:="les deux fichiers sont identiques. Il n'ya pas d'erreur."
Range("A1").Select
Else
Msg = "Il y a des erreurs"
Style = vbCritical
Title = "<<<Erreur trouvée>>>"
Réponse = MsgBox(Msg, Style, Title, Help, Context)
If Réponse = vbYes Then
Range("A1").Select
End If
End If
End Sub

 

[néné06]

Re : Macro comparaison fichier

Bonjour Sauplau et bienvenue sur le Forum.

Pourrais tu nous faire parvenir une piece jointe avec ce que tu as et ce que tu désire.

Les réponses seront au rendez_vous!

Cordialement