Comment réorganiser le texte dans une cellule dans Excel ?

Supposons que vous ayez une feuille de calcul avec une longue liste de noms formatés comme « Nom Prénom », et maintenant vous devez réorganiser tous les noms en « Prénom, Nom ». Comment pouvez-vous y parvenir ? Cet article présente trois méthodes pour résoudre ce problème.

Réorganiser le texte dans une cellule avec une formule
Réorganiser le texte dans une cellule avec du code VBA
Réorganiser rapidement le texte dans une cellule avec Kutools pour Excel

Réorganiser le texte dans une cellule avec une formule

La formule ci-dessous peut vous aider à inverser le nom et le prénom dans une cellule dans Excel. Veuillez procéder comme suit.

1. Sélectionnez une cellule vide pour afficher le texte réorganisé, saisissez la formule ci-dessous dedans, puis appuyez sur la touche Entrée.

=TRIM(MID(b2;RECHERCHE(" ";b2)+1;250))&" "&GAUCHE(b2;RECHERCHE(" ";b2)-1)

Remarque : dans la formule, B2 est la cellule contenant le nom que vous souhaitez réorganiser. Veuillez la modifier selon vos besoins.

2. Continuez à sélectionner la cellule résultat, faites glisser la poignée de recopie vers le bas pour inverser tous les noms comme indiqué dans la capture d'écran ci-dessous.

Réorganiser le texte dans une cellule avec du code VBA

De plus, vous pouvez appliquer le code VBA ci-dessous pour inverser tous les noms d'une liste en une seule fois dans Excel. Veuillez procéder comme suit.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Ensuite, copiez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Réorganiser le texte dans une cellule

Sub RearrangeText() 
'Updated by Extendoffice 20180503
Dim xRg As Range, yRg As Range 
Dim LastRow As Long, i As Long 
Dim strTxt As String, strFs As String 
Dim strLs As String, N As Integer 
On Error Resume Next 
Set xRg = Application.InputBox(Prompt:="Range Selection:", _ 
Title:="Kutools for excel", Type:=8) 
For Each yRg In xRg 
On Error Resume Next 
strTxt = yRg.Value 
Trim (strTxt) 
N = InStr(strTxt, " ") 
strLs = Left(strTxt, N - 1) 
strFs = Right(strTxt, Len(strTxt) - N) 
yRg.Value = strFs & " " & strLs 
Next 
End Sub

3. Une boîte de dialogue Kutools pour Excel apparaît, veuillez sélectionner la liste de noms que vous souhaitez réorganiser, puis cliquez sur le bouton OK. Voir la capture d'écran :

Toutes les entrées « Nom Prénom » dans la liste sélectionnée sont immédiatement inversées.

Réorganiser rapidement le texte dans une cellule avec Kutools pour Excel

Cette section présentera l'utilitaire Inverser le texte de Kutools pour Excel pour vous aider à réorganiser le texte dans une cellule.

1. Sélectionnez la liste de noms dont vous voulez inverser « Nom Prénom », puis cliquez sur Kutools > Texte > Inverser le texte. Voir la capture d'écran :

2. Dans la boîte de dialogue Inverser le texte, sélectionnez l'option Espace, puis cliquez sur le bouton OK. Voir la capture d'écran :

Tous les noms de la liste sélectionnée sont alors réorganisés en une seule fois.

Articles connexes :

• Comment intervertir ou inverser le jour et le mois d'une date dans Excel ?
• Comment intervertir ou échanger du texte au sein d'une cellule dans Excel ?