Colorer des cellules si elles sont identiques ou différentes

Question

Bonjour, j'ai des valeurs sur 2 feuilles d'un même fichier Excel et je dois les comparer entre elles pour déterminer si elles sont identiques ou non. J'ai commencé à écrire un programme en VBA pour colorer en vert toute les cellules identiques dans deux feuilles différentes. Mais je n'arrive pas à colorer dans une autre couleur les cellules qui ne sont pas présente dans les deux feuilles. Ou même essayer de transférer les valeurs non identiques dans une nouvelle feuille, afin de mieux voir les valeurs différentes.

Si vous avez des idées je suis preneuse.

Merci à vous d'avance.

15comparaison-ropt-j1m-sufs.xlsm (52.57 Ko)

Sub comp_listePBO()

Dim numero As Integer
Dim ColSyn As Integer

numero = 1
ColSyn = 1

For RowSyn = 1 To 1500
        'For ColSyn = 1 To 180

            'If Sheets(1).Cells(RowSyn, ColSyn).Value Like "HT-BP*" Then
                For ligne = 1 To Sheets("FL").Cells(Rows.Count, 1).End(xlUp).Row
                    If "*" & Sheets("DOC").Cells(RowSyn, ColSyn).Value & "*" Like "*" & Sheets("FL").Cells(ligne, 1).Value & "*" Then 'compare les colonnes code PBO pour voir si ils sont identiques
                        If "*" & Sheets("DOC").Cells(RowSyn, ColSyn + 1).Value & "*" Like "*" & Sheets("FL").Cells(ligne, 2).Value & "*" Then

                                Sheets("DOC").Cells(RowSyn + Rowx, ColSyn + Rowy).Interior.Color = RGB(0, 220, 0)
                                Sheets("DOC").Cells(RowSyn + Rowx, ColSyn + Rowy + 1).Interior.Color = RGB(0, 220, 0)
                                Sheets("FL").Cells(ligne, 1).Interior.Color = RGB(0, 220, 0)
                                Sheets("FL").Cells(ligne, 2).Interior.Color = RGB(0, 220, 0)

                        End If
                    End If
                Next
            'End If

        'Next
Next

End Sub

U. Milité · Accepted Answer

Re-bonjour,

Les MFC sont dans l'onglet Accueil > Groupe "Styles".
J'en ai défini 2 dans la feuille DOC (jaune pour les doublons avec la feuille FL, mauve, dans le cas contraire.
En feuille "uniques" un essai par formules (si j'ai compris la demande)

131comparaisons-lolo30.xlsx (48.04 Ko)

Fais des tests, pour vérifier que ça correspond à tes attentes

U. Milité · Answer

Pourquoi ne pas utiliser de simples M ises en F orme C onditionnelles pour colorer tes cellules ? Dans ton profil, 2008, c'est vraiment la version d'Excel (2008 ce serait pour Mac) ? Ce qui est utile ici, c'est plutôt préciser s'il s'agit d'Excel 2013, 2016, 2019, 365, etc...