ComparerCellules

Retour vers Excel

Comparer des cellules sur différentes feuilles

Nous souhaitons retrouver des cellules qui ont un contenu identique sur différentes feuilles et les marquer visuellement
Partons de la situation suivante : nous avons deux feuilles, et les cellules de "A1:A10" remplies comme ci-après...

Feuil1	Feuil2	Résultat

Code dans un module

Sub comparaison()
Dim Ref As Range, C As Range
For Each Ref In Worksheets("Feuil1").Range("a1:a10")
    For Each C In Worksheets("Feuil2").Range("a1:a10")
    If C.Address = Ref.Address And C = Ref Then
        C.Interior.ColorIndex = 3
    End If
    Next
Next
End Sub

J'utilise deux boucles enchevêtrées. Je compare l'adresse et le contenu de chaque cellule dans la plage désignée et si cette double condition correspond; le fond de la cellule passe à la couleur rouge

Télécharger le fichier exemple Comparer

FIN