Comparaison de 2 feuilles dans un fichier et colorer les points communs

Bonjour,

J'aimerais faire la comparaison (cross check) entre deux colonnes de 2 feuilles différentes et afficher en rouge dans les URLs en commun dans les deux feuilles ou bien j'aimerais afficher dans une autre feuille les URLs communes et afficher dans 2 autres feuilles les URLs non communes pour chacun des 2 feuilles (feuil1, feuil 2).

Merci.

Voici un exemple en PJ.

j'ai essayé de répondre, sinon donnes moi des explications plus claires

Bonjour,

Avec des requêtes Power Query sans doublons et triées :

Bonjour à vous deux,

Serait-il possible d'avoir la macro VBA qui permettent d'avoir le résultat s'il vous plait?

Merci.

Pour ma part, il n'y a pas de code VBA.

Pour accéder aux requêtes PQ : dans le menu Données cliquer sur Requêtes et connexions. Dans la fenêtre de droite, double-clic sur les 3 dernières requêtes.

Sur chaque requête figurent les étapes réalisées pour obtenir le résultat :

Exemple pour la requête des enregistrements communs

En cliquant depuis la première étape, on voit les transformations successives pour obtenir la requête ci-dessous.

La difficulté sera d'apprendre cette façon de faire. Dans les 3 requêtes, ce sont les jonctions entre tables 1 et 2 qui sont peut-être difficiles à appréhender.

Bonjour à tous les trois

Si vous voulez une macro, voici une possibilité :

Sub Macro1()
    Dim i As Integer, j As Integer

    For i = 1 To Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
        For j = 1 To Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row
            If Sheets("Feuil1").Cells(i, 1) = Sheets("Feuil2").Cells(j, 1) Then
                Sheets("Feuil1").Cells(i, 1).Font.Color = vbRed
                Sheets("Feuil2").Cells(j, 1).Font.Color = vbRed
            End If
        Next j
    Next i
End Sub