Inverser des mots dans Excel
Eric
-
Ange420 Messages postés 437 Statut Membre -
Ange420 Messages postés 437 Statut Membre -
Bonjour,
Je m'adresse encore à vous chers experts d'Excel!!!
Dans une cellule donnée (admettons A1), j'ai comme donnée Prénom Nom. J'aimerais obtenir Nom, Prénom en A2
Une formule simple? ou pas simple? ;)
À noter que Nom et Prénom peuvent aussi être Nom1-Nom2 et/ou Prénom1-Prénom2 (donc des noms composés) ou même N'om (ie L'Italien). Il existe aussi un Prénom Nom1 Nom2 (donc sans tiret)
Je ne sais pas si je suis assez clair :S
Merci
Je m'adresse encore à vous chers experts d'Excel!!!
Dans une cellule donnée (admettons A1), j'ai comme donnée Prénom Nom. J'aimerais obtenir Nom, Prénom en A2
Une formule simple? ou pas simple? ;)
À noter que Nom et Prénom peuvent aussi être Nom1-Nom2 et/ou Prénom1-Prénom2 (donc des noms composés) ou même N'om (ie L'Italien). Il existe aussi un Prénom Nom1 Nom2 (donc sans tiret)
Je ne sais pas si je suis assez clair :S
Merci
1 réponse
-
Voici une macro (je l'ai trouvé je ne l'ai pas faite !) par contre je l'ai testée et elle a fonctionné avec :
DUPONT Alain-->Alain DUPONT
Alain DUPONT--> DUPONT Alain
Jean-Louis DUPONT-->DUPONT Jean-Louis
DUPONT Jean-Louis-->Jean-Louis DUPONT
Sub test()
Dim tablo() As String, rep As String
Dim i As Integer, k As Integer
For i = 1 To Range("A65536").End(xlUp).Row
tablo = Split(Cells(i, 1).Value, " ")
For k = UBound(tablo) To 0 Step -1
rep = rep & " " & tablo(k)
Next k
Cells(i, 2).Value = Mid(rep, 2, Len(rep))
rep = ""
Next i
End Sub
Trouvée ici : https://www.excel-downloads.com/threads/inversion-dans-une-cellule.91798/
