Comment mettre en majuscule uniquement la première lettre dans les cellules Excel ?

Si vous avez une liste de noms en majuscules et que vous devez les modifier pour que seule la première lettre de chaque mot soit en majuscule, Excel propose plusieurs solutions. Cet article explique trois méthodes pour accomplir cette tâche : en utilisant des formules, VBA ou l'add-in Kutools pour Excel.

Mettre en majuscule uniquement la première lettre dans une cellule Excel avec une formule
Mettre en majuscule uniquement la première lettre dans les cellules Excel avec du code VBA
Mettre en majuscule uniquement la première lettre dans les cellules Excel en bloc avec Kutools pour Excel

Mettre en majuscule uniquement la première lettre dans les cellules Excel avec une formule

Vous pouvez convertir toutes les majuscules en une seule majuscule dans une liste à l'aide d'une formule. Veuillez procéder comme suit.

1. Sélectionnez une cellule vide (disons la cellule C2) pour localiser le résultat converti, et entrez la formule =PROPER(B2) dans la barre de formule, puis appuyez sur la touche Entrée.

Le nom en majuscules est immédiatement converti en casse correcte (première lettre en majuscule) dans la colonne d'aide.

2. Avec la cellule C2 sélectionnée, faites glisser la poignée de remplissage vers le bas de la liste jusqu'à atteindre la cellule où vous souhaitez convertir la casse des noms.

Remarque : Dans la formule, veuillez changer la référence de cellule en fonction de votre liste.

Mettre en majuscule uniquement la première lettre dans les cellules Excel avec du code VBA

De plus, vous pouvez exécuter le code VBA suivant pour convertir tous les noms en majuscules en casse correcte dans une liste.

1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Application.

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

Code VBA : Convertir toutes les majuscules en une seule majuscule

Sub Proper_Case()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress                    = Application.ActiveWindow.RangeSelection.Address
	Set xRg                     = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg                     = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate                    = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg.Cells
			If xCell.HasFormula = False Then
				xCell.Value = Application.WorksheetFunction.Proper(xCell.Value)
			End If
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

3. Cliquez sur la touche F5 ou cliquez sur le bouton Exécuter pour exécuter ce code. Dans la boîte de dialogue Kutools pour Excel qui apparaît, sélectionnez la plage que vous souhaitez convertir de toutes les majuscules en une seule majuscule, puis cliquez sur le bouton OK.

Tous les noms en majuscules dans la plage sélectionnée sont immédiatement convertis en casse correcte.

Mettre en majuscule uniquement la première lettre dans les cellules Excel en bloc avec Kutools pour Excel

Cette section vous montre l'utilitaire Changer la casse de Kutools pour Excel pour convertir toutes les majuscules en casse correcte en masse avec quelques clics seulement.

1. Sélectionnez la liste que vous devez convertir en casse, puis cliquez sur Kutools > Texte > Changer la casse. Voir la capture d'écran :

2. Dans la boîte de dialogue Changer la casse, sélectionnez l'option Majuscule en début de mot, puis cliquez sur le bouton OK.

Tous les noms en majuscules dans la liste sélectionnée sont instantanément convertis en casse correcte.