Avez-vous déjà rencontré des personnes qui insistent pour tout taper avec la touche de verrouillage des majuscules? Dans certaines feuilles de calcul, cela peut ne pas être acceptable. Pourtant, vous y êtes, avec une feuille de calcul pleine de cellules de texte qui sont toutes en majuscules. Comment convertir tout en majuscules et minuscules, sans avoir à retaper?

Si vous vous trouvez dans cette situation, la macro MakeProper peut faire l’affaire pour vous. Il examinera une plage de cellules, que vous sélectionnez, puis convertira toutes les constantes en ce que Excel appelle «cas approprié».

Cela signifie simplement que lorsque vous avez terminé, la première lettre de chaque mot d’une cellule sera en majuscule; le reste sera en minuscules. Si une cellule contient une formule, elle est ignorée.

Sub MakeProper()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

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

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = Application.Proper(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

Si vous préférez convertir tout le texte de la plage en minuscules, vous pouvez utiliser à la place la macro suivante, MakeLower ().

Sub MakeLower()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

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

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = LCase(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

_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 (2026) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.