Comparaison

Bonjour à tous

Dans ce fichier, j'ai 2 onglets contenant chacun un tableau.

Je sais que c'est possible mais je ne sais pas comment...

Le but étant que la colonne ID du tableau de l'onglet "REGONLINE" se compare avec la colonne ID du tableau de l'onglet "CONVENTION". Si l'ID du 1er tableau n'est pas en double dans le second tableau, il faudrait qu'il se colorie en rouge (du moins toute la ligne se colorie).

Merci d'avance de votre aide.

6comparaison.xlsx (15.36 Ko)

Bonjour,

Tu peux utiliser un tableau sur ta feuille Regonline, de cette façon, si tu ajoutes des lignes, la mise en forme conditionnelle s'y appliquera automatiquement. La formule pour la MEFC comprend une fonction DECALER pour tenir compte des ajouts sur la feuille Convention.

=NB.SI(DECALER(CONVENTION!$A$2;0;0;NBVAL(CONVENTION!$A:$A)-1;1);$A2)=0
6comparaison.xlsx (16.84 Ko)

Bonjour,

Une proposition avec une colonne supplémentaire (colonne E masquée) pour comparer les deux tableaux et une mise en forme conditionnelle qui prend en compte le résultat de la comparaison.

8comparaison.xlsx (16.69 Ko)

A+

Bonjour,

Et une autre proposition.

Cdlt.

9comparaison.xlsm (32.17 Ko)
Option Explicit
Private Sub cmdComparer_Click()
Dim wsd As Worksheet
Dim nbRows As Long, i As Long
Dim x

    Set wsd = Worksheets("CONVENTION")
    ListObjects("Tableau1").Range.Interior.Pattern = xlNone
    nbRows = Range("Tableau1[ID]").Count

    For i = 1 To nbRows
        On Error Resume Next
        x = Application.VLookup(Range("Tableau1[ID]")(i), wsd.Range("Tableau2[ID]"), 1, 0)
        If IsError(x) Then
            ListObjects("Tableau1").ListRows(i).Range.Interior.Color = 255
        End If
    Next i

    Set wsd = Nothing

End Sub
Private Sub cmdRAZ_Click()
    ListObjects("Tableau1").Range.Interior.Pattern = xlNone
End Sub

Merci beaucoup les gars pour vos réponses cela fonctionne nickel.

Rechercher des sujets similaires à "comparaison"