Comparaison cellule dans Colonne A et Ligne 1

Bonsoir à tous,

Je cherche un code vba me permettant de comparer les cellules de la colonne A avec les cellules de la Ligne 1.

Si cellules identiques, placer un "X" dans la cellule de leur intersection ... Pas très clair ... désolé

L'image en PJ vous aidera à me comprendre.

code qui se déroulera une fois la validation d'un bouton de mon USF

Par avance merci

Bonsoir

bonsoir le forum,

une proposition

Sub aargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    dc = Cells(1, Columns.Count).End(xlToLeft).Column
    Set pl = Cells(1, 1).Resize(, dc)
    For i = 2 To dl
        Set re = pl.Find(Cells(i, 1), lookat:=xlWhole)
        If Not re Is Nothing Then
            Cells(i, re.Column) = "X"
        End If
    Next i
End Sub

Merci de ta rapidité h2so4.

En fait je commence sur la colonne C, à partir de C2 jusque C50 et plus. Et sur la Ligne 1 à partir de D1 ...

Une autre proposition ?

Solution trouvée. Merci

bonsoir,

bonsoir le forum,

content que ton problème soit résolu.

une solution adaprée à tes nouvelles spécifications

Sub aargh()
    dl = Cells(Rows.Count, 3).End(xlUp).Row
    dc = Cells(1, Columns.Count).End(xlToLeft).Column
    Set pl = Cells(1, 4).Resize(, dc)
    For i = 2 To dl
        Set re = pl.Find(Cells(i, 3), lookat:=xlWhole)
        If Not re Is Nothing Then
            Cells(i, re.Column) = "X"
        End If
    Next i
End Sub