Bonjour à tous,
Je cherche à comparer les données de la colonne A de la feuille 1 et celles de la colonne A de la feuille 2, quelque soient leur place dans la colonne.
On ne tient donc pas compte de leur position, on ne les compare pas par paire.
La macro données_identiques fonctionne bien et colorie sur la feuille 1es valeurs qui se retrouvent sur la feuille 2 (certaines sont placées au même endroit sur les deux feuilles, d'autres non).
Je souhaite faire l'inverse, et colorier en feuille 1 les données différentes.
Je pensais qu'en conservant ce code et en employant <> au lieu du signe =, cela fonctionnerait.
If Sheets("Feuil1").Range("a2").Offset(i, 0) <> Sheets("Feuil2").Range("a2").Offset(c, 0) Then
Sheets("Feuil1").Range("a2").Offset(i, 0).Interior.ColorIndex = 7
Surprise, toutes les valeurs sont coloriées.
Où est l'erreur, avez-vous une solution ?
Je joins le fichier.
Merci pour votre aide, et bonne journée.
Je cherche à comparer les données de la colonne A de la feuille 1 et celles de la colonne A de la feuille 2, quelque soient leur place dans la colonne.
On ne tient donc pas compte de leur position, on ne les compare pas par paire.
La macro données_identiques fonctionne bien et colorie sur la feuille 1es valeurs qui se retrouvent sur la feuille 2 (certaines sont placées au même endroit sur les deux feuilles, d'autres non).
Je souhaite faire l'inverse, et colorier en feuille 1 les données différentes.
Je pensais qu'en conservant ce code et en employant <> au lieu du signe =, cela fonctionnerait.
If Sheets("Feuil1").Range("a2").Offset(i, 0) <> Sheets("Feuil2").Range("a2").Offset(c, 0) Then
Sheets("Feuil1").Range("a2").Offset(i, 0).Interior.ColorIndex = 7
Surprise, toutes les valeurs sont coloriées.
Où est l'erreur, avez-vous une solution ?
Je joins le fichier.
Merci pour votre aide, et bonne journée.