XL 2021 (RESOLU) Concaténation et Remplacement des Prénoms par Noms en ordre alpha

merinos à dit:

C'est gentil... mais il n'y a pas de nom de club...

En plus si Elisabeth Taylor et Elisabeth Tatcher jouent a l'AC Milan....

Il me semble qu'il n'y a pas assez d'info pour faire les remplacement de données.


Regarde la pièce jointe 1181037

Cliquez pour agrandir...

yannlion à dit:

En fait les duos apparaissent sur deux lignes identiques en colonne C et les prénoms sont ceux en colonne F sur ces deux lignes.
L'idée est juste de remplacer les prénoms que l'on retrouve en colonne C par les noms en colonne E quand il y a écrit Duo en colonne A

Cliquez pour agrandir...

 For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
    If Range("C" & i).Value = "Duo" Then
        If Range("G" & i).Value = Range("G" & i + 1).Value Then
            Range("G" & i).Value = Replace(Range("G" & i).Value, Range("J" & i).Value, Range("I" & i).Value)
            Range("G" & i).Value = Replace(Range("G" & i).Value, Range("J" & i + 1).Value, Range("I" & i + 1).Value)
        Else
            Range("G" & i).Value = Range("G" & i - 1).Value
        End If
    End If
Next