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

[yannlion]

Bonjour le forum !

J'ai un double soucis sur une macro.
J'aimerais remplacer les 2 prénoms des duos par les deux noms en ordre alphabétique séparés par " / " (voir le fichier exemple).

Autant j'arriverais à me dépatouiller sur une ligne autant sur deux, cela dépasse mes compétences ...

Merci d'avance pour votre aide
Yann

PS : l'ordre alpha est facultatif

 

[merinos]

Mais que faire quand Jean Dupond rencontre Jean Durant ???

 

[yannlion]

Ils sont ensemble donc DUPONT / DURANT ou DURANT / DUPONT après le nom du club

 

[R@chid]

Bonjour,
Sous réserve d'avoir compris, en C17 :

=SUBSTITUE(C2;JOINDRE.TEXTE(" - ";1;SI(B$2:B$8=B2;F$2:F$8;""));JOINDRE.TEXTE(" / ";1;SI(B$2:B$8=B2;E$2:E$8;"")))

@ tirer vers le bas

Cordialement

 

[merinos]

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.

 

[Cousinhub]

Bonjour,
Hello Merinos et Rachid
@ yann
Quid des 2 "Anna", comment deviner si c'est "PERO" ou "ALBIA"?

 

[yannlion]

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

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

 

[yannlion]

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

Je crois que j'ai solutionné avec cette macro :

 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

Peut être pas très propre mais fonctionnel