casse04Des données sont saisies en minuscule et vous voulez passer l’ensemble de celles-ci en majuscule, ou inversement. Plus difficile, vous désirez mettre une majuscule au début de chaque mot très rapidement sur une plage. Vous pouvez utiliser 3 fonctions d’Excel, complétés de copier-coller des valeurs ou écrire une macro.

 

Les fonctions d’Excel

Soit la colonne A (à partir de la ligne 2) écrite en minuscule ou majuscule ou un mélange des deux :

  1. Ajouter une colonne à votre tableau
  2. Tapez une des formules suivantes sur la 2e ligne de votre nouvelle colonne :
    • =MINUSCULE(A2)  “mettre en minuscule”
    • =MAJUSCULE(A2)  “mettre en majuscule
    • =NOMPROPRE(A2)  “mettre la 1ère lettre de chaque mot en majuscule”
  3. Pour remplacer les valeurs de la colonne A par celles de cette colonne calculée :
    • Copier la nouvelle colonne
    • sur la même colonne, clic-droit, Options de collage,
      casse01
      Valeurs : casse02

Des macros

sur l’onglet Affichage, groupe Macros, cliquez sur Macros et choisir Afficher les macros.
Dans la fenêtre qui suit tapez le nom de votre macro (ChangerCasse) dans la zone de saisie Nom de la macro et sélectionnez PERSONNAL.XLSB dans la liste Macros dans. Puis cliquez sur le bouton Créer 

casse03

Dans la fenêtre qui s’ouvre, ajouter le code suivant :

Dim byCasse As Byte, UnTexte As String, rCel As Range

'parcourir chaque cellule de la plage sélectionnée
For Each rCel In Selection
    UnTexte = rCel.Text 'recupération du texte de la cellule
    If UCase(UnTexte) = UnTexte Then 'texte en majuscule
        byCasse = 1
    ElseIf LCase(UnTexte) = UnTexte Then 'texte en minuscule
        byCasse = 2
    Else 'autres
        byCasse = 0
    End If
    'je passe à l'état suivant
    byCasse = byCasse + 1
    Select Case byCasse
        Case 1
            UnTexte = UCase(UnTexte) 'mettre en majuscule
        Case 2
            UnTexte = LCase(UnTexte) 'mettre en minuscule
        Case 3
            UnTexte = Application.WorksheetFunction.Proper(UnTexte) '1ère lettre des mots en majuscule
    End Select
    rCel = UnTexte
Next

Il ne vous reste plus qu’à ajouter cette macro à votre barre d’outils d’accès rapide. A chaque utilisation de cette macro sur une même cellule vous passerez d’un état à l’autre.

Cathy MONIER, MVP Excel

Auteur du site CathyAstuce