Comment fractionner rapidement une chaîne de texte selon la casse dans Excel ?
Dans Excel, on fractionne généralement le texte à l’aide d’un Largeur spécifiée ou d’un délimiteur grâce à la fonction « Texte en colonnes », mais avez-vous déjà essayé de fractionner un texte en fonction des majuscules et des minuscules ? Par exemple, vous disposez d’une liste de données que vous devez séparer en deux colonnes selon la casse : une colonne contenant les chaînes en Contient des minuscules et l’autre les chaînes en Contient des majuscules, comme illustré ci-dessous. La fonction « Texte en colonnes » ne prend pas en charge cette opération, mais je peux vous présenter une astuce pour fractionner rapidement une chaîne de texte par casse dans Excel.
Fractionner du texte par casse avec VBA
Fractionner du texte en lignes/colonnes à l’aide d’un séparateur avec Kutools pour Excel
Fractionner du texte par casse avec VBA
Dans Excel, seule une macro VBA permet de fractionner rapidement une chaîne en distinguant les majuscules des minuscules.
1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code ci-dessous dans le script vide du Module.
VBA : fractionner une chaîne en fonction de la casse.
Sub CamelCase()
'UpdatebyExtendoffice20160711
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Nothing
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Pattern = "(\S)([A-Z]+[^A-Z])"
.Global = True
For Each xCell In xRg
xCount = .Execute(xCell).Count
If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
Next
End With
Application.ScreenUpdating = True
End Sub
3. Appuyez sur la touche F5 : une boîte de dialogue s’ouvre pour vous demander de sélectionner les textes à fractionner. Voir la capture d’écran :
4. Cliquez sur OK : les textes sélectionnés sont alors divisés en deux colonnes — l’une contenant les chaînes en minuscules, l’autre celles en majuscules.
Fractionner du texte en lignes/colonnes à l’aide d’un séparateur avec Kutools pour Excel
Dans de nombreux cas, vous souhaiterez peut-être diviser une cellule en plusieurs lignes ou colonnes à partir d’un caractère spécifique. Dans Excel, la fonction intégrée « Texte en colonnes » permet uniquement de convertir directement une cellule en colonnes, mais ne prend pas en charge la conversion en lignes. Heureusement, avec Kutools pour Excel – un outil pratique et puissant –, vous pouvez utiliser son utilitaire Diviser les cellules pour fractionner rapidement une chaîne en lignes ou en colonnes selon un séparateur ou une largeur spécifiée.
Après avoir installé gratuitementKutools pour Excel, procédez comme suit :
1. Sélectionnez la cellule à fractionner, puis cliquez sur Kutools > Fusionner et scinder > Diviser les cellules. Voir la capture d’écran :
2. Dans la boîte de dialogue Diviser les cellules, cochez le type de fractionnement souhaité dans la section Type, puis sélectionnez le délimiteur spécifique à utiliser comme critère de division dans la section Fractionner par. Voir la capture d’écran :
3. Cliquez sur Ok, une boîte de dialogue s’ouvre pour vous demander de choisir une cellule où placer les contenus fractionnés. Voir la capture d’écran :
4. Après avoir effectué votre sélection, cliquez sur OK : la cellule sélectionnée est alors divisée en lignes selon les espaces. Voir la 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