Si vous utilisez des feuilles de calcul contenant beaucoup de texte, il se peut que vous souhaitiez parfois une fonction comme Word qui se convertit facilement entre majuscules et minuscules. Excel contient de telles fonctions, mais elles sont conçues pour être utilisées dans des macros et non comme des commandes des menus.

Si vous souhaitez convertir rapidement de grandes plages de texte sans avoir à retaper le texte dans les cellules de la plage, vous pouvez utiliser la macro suivante:

Sub MakeUpper()

Dim MyText As String     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             MyText = MyRange.Cells(CellCount).Value             MyRange.Cells(CellCount).Value = UCase(MyText)

End If     Next CellCount End Sub

Cette macro parcourt les cellules d’une plage que vous sélectionnez, convertit le contenu de toute cellule qui ne contient pas de formule en majuscules. Vous pouvez facilement modifier la macro pour qu’elle se convertisse en minuscules en modifiant la fonction UCase (utilisée près du bas de la macro) en LCase. Une autre modification intéressante est si vous souhaitez utiliser la casse du titre au lieu des majuscules ou des minuscules. (La casse du titre est où seule la première lettre de chaque mot est en majuscule.) Pour ce faire, remplacez UCase (MyText) par Application.Proper (MyText).

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (1970) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.