Mettre une croix au nom correspondant dans un tableau (macro)

Bonjour à tous,

J'ai besoin de votre aide pour une macro.
J'ai créé un tableau avec les mêmes noms en ligne et en colonne sauf que les noms sont rangés de manière aléatoire, mon objectif c'est de mettre une croix sur chaque nom correspondant de manière automatique (macro).

Je vous mets en pièce jointe mon fichier Excel

et un exemple d'image de ce que j'aimerais obtenir.

Je vous remercie d'avance de votre aide.

merci !

bonjour,

une solution possible :

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 5).End(xlUp).Row
        dc = .Cells(3, Columns.Count).End(xlToLeft).Column
        Set plagenom = .Range("E4:E" & dl)
        For i = 6 To dc
            Set re = plagenom.Find(.Cells(3, i).Value, lookat:=xlWhole)
            If Not re Is Nothing Then
                .Cells(re.Row, i) = "X"
            End If
        Next i
    End With
End Sub

Bonjour,

Comme je me suis lancé, une autre approche basée sur les références de votre table structurée (donc les lignes 16 a 21 n'étant pas dans votre table structurée, elles ne sont pas inclues, d'où l'absence de croix) :

Sub CROIX()
For Each CEL In ActiveSheet.ListObjects("Tableau1").ListRows(1).Range
    Set LIG = ActiveSheet.ListObjects("Tableau1").ListColumns(1).Range.Find(CEL.Value)
    If Not LIG Is Nothing Then Cells(LIG.Row, CEL.Column) = "X"
Next CEL
End Sub

Cdlt,

Bonjour, ma participation

Sub Macro1()
Dim NBLIGNE As Long
NBLIGNE = Range("E65536").End(xlUp).Row
For i = 4 To NBLIGNE
Set Trouve = Rows(3).Find(Cells(i, 5), LookIn:=xlValues, lookat:=xlWhole)
AdresseTrouvee = Trouve.Address
Range(Split(AdresseTrouvee, "$")(1) & i).Value = "X"
Next i
End Sub

Bonjour,

Une proposition auto. avec formule.
Cdlt.

=SI(Table1[@[liste des noms]:[liste des noms]]=Table1[[#Headers];[AA]];"x";"")

Je vous remercie tous, toutes les solutions proposées marchent super bien.

Cordialement,

Coumbiss.