Comment convertir une chaîne de texte en casse correcte avec des exceptions dans Excel ?
Dans Excel, vous pouvez appliquer la fonction MajusculeInit pour convertir facilement des chaînes de texte en casse correcte. Cependant, parfois, vous devez exclure certains mots spécifiques lors de la conversion des chaînes de texte en casse correcte, comme le montre la capture d'écran suivante. Dans cet article, je vais vous parler de quelques astuces rapides pour résoudre cette tâche dans Excel.
Convertir des chaînes de texte en casse correcte avec des exceptions à l'aide d'une formule
Convertir des chaînes de texte en casse correcte avec des exceptions à l'aide du code VBA
Convertir des chaînes de texte en casse correcte avec des exceptions à l'aide d'une formule
La formule suivante peut peut-être vous aider à traiter cette tâche rapidement, veuillez procéder comme suit :
Entrez cette formule :
=MAJUSCULE(GAUCHE(A2))&MILIEU(SUPPRESPACE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(" "&PROPER(A2)&" "," Of "," of ")," A "," a "),"Is "," is ")," Usa "," USA ")),2,LONGUEUR(A2)) dans une cellule où vous souhaitez obtenir le résultat, puis faites glisser la poignée de remplissage pour appliquer cette formule, et les chaînes de texte ont été converties en casse correcte mais avec des exceptions spécifiques, voir capture d'écran :
Remarque : Dans la formule ci-dessus, A2 est la cellule que vous souhaitez convertir, “Of ”, “A”, “Is”, “Usa” sont les mots en casse correcte normale après conversion, “of ”, “a”, “is”, “USA” sont les mots que vous souhaitez exclure de la casse correcte. Vous pouvez les modifier selon vos besoins ou ajouter d'autres mots avec la fonction SUBSTITUE.
Convertir des chaînes de texte en casse correcte avec des exceptions à l'aide du code VBA
Si la formule ci-dessus est quelque peu difficile à comprendre et à adapter à vos besoins, ici, vous pouvez également appliquer un code VBA pour accomplir cette tâche. Veuillez suivre les étapes suivantes une par une.
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre Module.
Code VBA : convertir des chaînes de texte en casse correcte avec des exceptions :
Sub CellsValueChange()
'Updateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim xPRg As Range
Dim xSRgArea As Range
Dim xRgVal As String
Dim xAddress As String
Dim I As Long
Dim K As Long
Dim KK As Long
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Original cells:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Output cells:", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xPRg = Application.InputBox("Cells to exclude:", "KuTools For Excel", , , , , , 8)
If xPRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRg.Areas.Count
Set xSRgArea = xSRg.Areas.Item(I)
For K = 1 To xSRgArea.Count
xRgVal = xSRgArea(K).Value
If Not IsNumeric(xRgVal) Then
xRgVal = CorrectCase(xRgVal, xPRg)
xDRg.Offset(KK).Value = xRgVal
End If
KK = KK + 1
Next
Next
End Sub
Function CorrectCase(ByVal xRgVal As String, ByVal xPRg As Range) As String
Dim xArrWords As Variant
Dim I As Integer
Dim xPointer As Integer
Dim xVal As String
xPointer = 1
xVal = xRgVal
xArrWords = WordsOf(xRgVal)
For I = 0 To UBound(xArrWords)
xPointer = InStr(xPointer, " " & xVal, " " & xArrWords(I))
Debug.Print xPointer
Mid(xVal, xPointer) = CorrectCaseOneWord(CStr(xArrWords(I)), xPRg)
Next I
CorrectCase = xVal
End Function
Function WordsOf(xRgVal As String) As Variant
Dim xDelimiters As Variant
Dim xArrRtn As Variant
xDelimiters = Array(",", ".", ";", ":", Chr(34), vbCr, vbLf)
For Each xEachDelimiter In xDelimiters
xRgVal = Application.WorksheetFunction.Substitute(xRgVal, xEachDelimiter, " ")
Next xEachDelimiter
xArrRtn = Split(Trim(xRgVal), " ")
WordsOf = xArrRtn
End Function
Function CorrectCaseOneWord(xArrWord As String, xERg As Range) As String
With xERg
If IsError(Application.Match(xArrWord, .Cells, 0)) Then
CorrectCaseOneWord = Application.Proper(xArrWord)
Else
CorrectCaseOneWord = Application.VLookup(xArrWord, .Cells, 1, 0)
End If
End With
End Function
3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner les cellules d'origine que vous souhaitez convertir, voir capture d'écran :
4. Cliquez ensuite sur OK, sélectionnez les cellules où vous souhaitez afficher les résultats dans la boîte de dialogue qui apparaît, voir capture d'écran :
5. Continuez en cliquant sur OK, et dans la boîte de dialogue contextuelle, sélectionnez les textes que vous souhaitez exclure, voir capture d'écran :
6. Cliquez ensuite sur OK pour quitter les dialogues, et toutes les chaînes de texte ont été converties en casse correcte, à l'exception des mots spécifiés, voir capture d'écran :
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels