MACRO - Intervertir "Prénom NOM" en transformant en "NOM Prénom" sur cell

Hello forum,

J'ai un tableau avec des identités:

Sur certaines lignes, la règle du "NOM Prénom" est bien respectée, sur d'autres on retrouve "Prénom NOM".

Auriez-vous une macro rapide qui détermine si la règle est respectée et qui corrige la situation si besoin est, ce qui donnerait dans notre exemple un résultat tel que :

Merci d'avance pour votre aide.Je prends la moindre piste pouvant m'aider !

Bien à vous

Bonsoir,

un essai :

Sub EnPlace()
    For i = 2 To 5
        temp = Split(Cells(i, 1), " ")
        If temp(0) <> UCase(temp(0)) Then Cells(i, 2) = temp(1) & " " & temp(0) Else Cells(i, 2) = temp(0) & " " & temp(1)
    Next i
End Sub

Le principe ? on découpe la valeur de la cellule avec SPLIT en fonction du séparateur "espace".
On test la première valeur du tableau créé avec sa valeur "en majuscule".
Si c'est différent c'est qu'on se trouve avec le prénom en première place, on écrit donc dans la cellule la donnée en inversant les deux valeurs, sinon on écrit directement les deux valeurs dans le bon sens, mais ce Else peut être omis.

Tout ceci fonction si le nom et le prénom sont séparé par un espace, si le prénom composé ou le nom composé sont liés avec un tiret, pas tester avec les accents...

@ bientôt

LouReeD

Bonjour LouReeD,

J'ai bien compris ton code, merci beaucoup pour ton aide et le partage de ton savoir !

Bonne journée à toi

Bonjour,

Merci pout vos remerciements !

@ bientôt

LouReeD