Sujet Précédent Sujet Suivant

Inverser des mots dans Excel

Fermé
Eric - Modifié par Eric le 14/01/2011 à 15:21
Ange420 Messages postés 423 Date d'inscription dimanche 2 janvier 2011 Statut Membre Dernière intervention 14 janvier 2013 - 14 janv. 2011 à 16:41
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

A voir également:

1 réponse

Réponse 1 / 1
Ange420 Messages postés 423 Date d'inscription dimanche 2 janvier 2011 Statut Membre Dernière intervention 14 janvier 2013 234
14 janv. 2011 à 16:41
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/
0