Comment échanger ou inverser le texte dans une seule cellule dans Excel ?

Dans de nombreux cas, vous pourriez avoir besoin d'échanger le texte dans une seule cellule pour diverses raisons. Par exemple, une cellule contient un nom 'Smith John', et vous devez échanger les textes à l'intérieur de la cellule pour changer le nom en 'John Smith'. Cet article liste quelques méthodes pour résoudre ce problème.

Échanger ou inverser le texte dans une seule cellule en utilisant une formule
Échanger ou inverser le texte dans une seule cellule en utilisant du code VBA
Facilement échanger ou inverser le texte dans une seule cellule avec Kutools pour Excel>

Échanger ou inverser le texte dans une seule cellule en utilisant une formule

La formule ci-dessous peut vous aider à inverser les textes dans une seule cellule dans Excel. Veuillez procéder comme suit.

1. Sélectionnez une cellule vide pour y placer les données inversées, entrez la formule dans la Barre de formule (F), puis appuyez sur la touche Entrée. Voir capture d'écran :

=DROITE(A2;NBCAR(A2)-TROUVE(" ";A2)) & " " & GAUCHE(A2;TROUVE(" ";A2)-1)

2. Sélectionnez la cellule résultat, puis faites glisser la poignée de recopie vers le bas pour obtenir les résultats restants comme indiqué dans la capture d'écran ci-dessous.

Vous pouvez ensuite voir que le prénom et le nom de famille sont inversés dans les cellules spécifiées.

Remarque : Cette méthode ne peut inverser que deux textes dans une seule cellule qui sont séparés par un espace.

Échanger ou inverser le texte dans une seule cellule en utilisant du code VBA

Comme illustré dans l'exemple ci-dessus, vous pouvez également exécuter le script VBA suivant pour échanger ou inverser le texte dans une seule cellule.

1. Appuyez simultanément 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 et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Échanger ou inverser le texte dans une seule cellule

Sub res()
    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. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools pour Excel qui s'affiche, sélectionnez la plage contenant les données que vous souhaitez échanger, puis cliquez sur le bouton OK. Voir capture d'écran :

Vous pouvez alors voir que les textes dans les cellules spécifiées sont immédiatement inversés.

Remarque : Ce code peut également inverser correctement deux mots dans une seule cellule qui sont séparés par un espace.

Facilement échanger ou inverser le texte dans une seule cellule avec Kutools pour Excel

Cette section recommande l'utilitaire Inverser l'ordre du texte de Kutools pour Excel pour vous aider à résoudre facilement ce problème. Veuillez procéder comme suit.

1. Sélectionnez la plage contenant les textes que vous devez inverser, puis cliquez sur Kutools > Texte > Inverser l'ordre du texte. Voir capture d'écran :

2. Dans la boîte de dialogue Inverser le texte, spécifiez un séparateur sur lequel vous allez inverser les textes dans la section Séparateur. Dans ce cas, je sélectionne l'option Espace. Puis cliquez sur le bouton OK.

Vous pouvez alors voir que les données des cellules sélectionnées sont immédiatement inversées dans la même cellule en fonction du séparateur spécifié.

Article connexe :

• Comment inverser ou échanger le jour et le mois d'une date dans Excel ?