Comment déplacer le dernier mot vers la cellule adjacente suivante ?
Supposons que vous ayez une liste de chaînes de texte dont vous souhaitez déplacer le dernier mot vers la cellule adjacente suivante, comme le montre la capture d’écran ci-dessous. Bien sûr, vous pouvez les couper et les coller une par une, mais existe-t-il un moyen plus rapide de tout déplacer d’un seul coup dans Excel ?
Déplacer le dernier mot vers la cellule adjacente suivante à l’aide d’un code VBA
Extraire le dernier mot vers la cellule adjacente suivante à l’aide d’une formule
Déplacer le dernier mot vers la cellule adjacente suivante à l’aide d’un code VBA
Pour couper et déplacer le dernier mot d’une cellule vers la cellule adjacente suivante, veuillez appliquer le code VBA suivant :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : déplacer le dernier mot vers la cellule adjacente suivante :
Sub splitlastword()
Dim xCell As Range
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please selec the text cells:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only one column in the seleted range", vbInformation, "Kutools for Excel"
Exit Sub
End If
For Each xCell In xRg
xStr = Trim(xCell.Value)
xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
xCell.Value = Left(xStr, InStrRev(xStr, " "))
Next
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’affiche alors afin que vous puissiez sélectionner les cellules contenant le texte dont vous souhaitez déplacer le dernier mot (voir capture d’écran) :
4. Cliquez ensuite sur le bouton OK : les derniers mots des cellules sélectionnées sont immédiatement déplacés vers la cellule adjacente suivante — celle située à droite (voir capture d’écran).
Extraire le dernier mot vers la cellule adjacente suivante à l’aide d’une formule
Si vous souhaitez simplement extraire les derniers mots des chaînes de texte sans les déplacer, la formule suivante vous sera particulièrement utile.
Saisissez cette formule :
=RIGHT(A2,LEN(A2)-FIND(«*»,SUBSTITUTE(A2,« »,«*»,LEN(A2)-LEN(SUBSTITUTE(A2,« »,«»))))) dans une cellule vide située à côté de la cellule contenant le texte, puis faites glisser la poignée de recopie vers le bas jusqu’aux cellules où vous souhaitez extraire le dernier mot. Tous les derniers mots sont ainsi extraits des chaînes de texte sans modifier les données d’origine (voir capture d’écran) :
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels