Bonjour,
Je viens vous solliciter encore une fois si cela est possible
J'ai un fichier avec plusieurs onglets, mais j'aimerais comparer deux onglets ( feuil1 et feuil2 ) avec 5 feuil3 et feuil4 )
j'avais effectuer une macro qui comparer une colonne d'un fichier avec une colonne d'un autre fichier mais je n'arrive pas à l'adapter pour ce nouveau besoin. de plus j'ai trouvé cette macro qui compare deux fichier mais je n'arrive pas à l'utiliser non plus
Voici la macro que j'avais trouvé :
vous trouverez ci-joint mon fichier excel avec les onglets à comparer ( feuil1 avec feuil 3 et feuil2 avec feuil4 )
Je vous remercie d'avance.
Je viens vous solliciter encore une fois si cela est possible
J'ai un fichier avec plusieurs onglets, mais j'aimerais comparer deux onglets ( feuil1 et feuil2 ) avec 5 feuil3 et feuil4 )
j'avais effectuer une macro qui comparer une colonne d'un fichier avec une colonne d'un autre fichier mais je n'arrive pas à l'adapter pour ce nouveau besoin. de plus j'ai trouvé cette macro qui compare deux fichier mais je n'arrive pas à l'utiliser non plus
Voici la macro que j'avais trouvé :
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("classeur1").Select
Set X = Worksheets("classeur1").Range(Var)
Set Z = Worksheets("classeur2").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
vous trouverez ci-joint mon fichier excel avec les onglets à comparer ( feuil1 avec feuil 3 et feuil2 avec feuil4 )
Je vous remercie d'avance.