show/hide menu
Non classé

Excel : changer la casse

0

changer_casse00Mais pourquoi la commande ?Changer la casse?, permettant de passer le texte en majuscule, minuscule ou 1ère lettre des mots en majuscule, existant sous Word n’est pas présente dans Excel ? Je vais vous aider à remédier à ce petit problème selon 2 méthodes.

 

Méthode 1 : Utiliser les fonctions d’Excel

Placez-vous à droite de votre tableau ou insérez une colonne dans votre tableau. Dans la 1ère cellule de cette nouvelle colonne, tapez la formule suivante :

  • Pour mettre votre texte en majuscule
    =MAJUSCULE(A2)changer_casse03
     
  • Pour mettre votre texte en minuscule
    =MINUSCULE(A2)
     
  • Pour mettre en majuscule la 1ère lettre de chaque mot
    =NOMPROPRE(A2)
     
  • Pour mettre en majuscule la 1ère lettre du texte et le reste en minuscule
    =MAJUSCULE(GAUCHE(A2;1))&MINUSCULE(DROITE(A2;NBCAR(A2)-1))

    GAUCHE permet de récupérer le 1er caractère de la cellule
    DROITE permet de récupérer les derniers caractères. NBCAR renvoi le nombre de caractères de la cellule

Recopiez ensuite cette formule sur toute la hauteur de votre tableau :

  1. placez votre curseur en bas à droite de cette cellule. Le curseur prend la forme d’un +
    changer_casse04
  2. Double-cliquez sur cet angle inférieur droit

Soit vous conservez cette nouvelle colonne, soit vous remplacez les valeurs de la colonne d’origine par celles de la nouvelles colonne :

  1. Sélectionnez les valeurs de la nouvelle colonne et copiez
  2. clic-droit sur la 1ère cellule de valeurs de votre ancienne colonne, choisissez Valeurs (V) dans les options de collage
    changer_casse05

Méthode 2 : un peu de code VBA

Dans l’onglet Affichage, cliquez sur le bouton Macros, puis sur Afficher les macros.
changer_casse06

Dans la nouvelle fenêtre :

  1. dans la zone Nom de la macro, tapez ChangerCasse
  2. dans la liste Macros dans, sélectionnez ?Classeur de macros personnelles?
  3. cliquez sur le bouton Créer
  4. Tapez le code suivant :

Public Sub ChangeCasse()
    Dim byCasse As Byte, UnTexte As String, rCel As Range
   
    For Each rCel In Selection
‘parcourir chaque cellule de la selection
        If Not rCel.HasFormula Then ‘si la cellule ne contient pas une formule
            UnTexte = rCel ‘recupération du texte de la cellule
            ‘test sur l’état actuel de la casse du texte
            If UCase(UnTexte) = UnTexte Then
                byCasse = 1 ‘majuscule
            ElseIf LCase(UnTexte) = UnTexte Then
                byCasse = 2 ‘minuscule
            ElseIf (UCase(Left(UnTexte, 1)) = Left(UnTexte, 1)) And LCase(Right(UnTexte, Len(UnTexte) – 1)) = Right(UnTexte, Len(UnTexte) – 1) Then
                byCasse = 3 ‘1ère lettre en majuscule, le reste en minuscule
            Else
                byCasse = 0 ‘autre
            End If
            ‘en ajoutant 1 à l’etat, on passe à l’état suivant selon une boucle
            byCasse = byCasse + 1
            Select Case byCasse
                Case 1 ‘mettre en majuscule
                    UnTexte = UCase(UnTexte)
                Case 2 ‘mettre en minuscule
                    UnTexte = LCase(UnTexte)
                Case 3 ‘mettre 1ère lettre en majuscule, le reste en minuscule
                    UnTexte = UCase(Left(UnTexte, 1)) & LCase(Righ
t(UnTexte, Len(UnTexte) – 1))
                Case 4 ‘mettre en nompropre
                    UnTexte = Application.WorksheetFunction.Proper(UnTexte)
            End Select
            rCel = UnTexte
        End If
    Next
End Sub

Ajouter cette macro, soit sur la barre d’outils Accès rapide : à droite de cette barre, cliquez sur la flèche, puis sur Autre commandes

changer_casse07

ou personnalisez votre ruban : effectuez un clic-droit sur le ruban et choisissez Personnaliser le ruban

changer_casse08

Dans les 2 cas, choisissez dans la liste de gauche, la catégorie Macros et ajouter votre macro dans la liste de droite où vous le désirez.

Cathy MONIER, MVP Excel

Auteur du site CathyAstuce

articles liés

Créer une table des matières avec Word 2011

Créer une table des matières avec Word 2011

Winston Struye, professeur chez Slideluck Youth Initiative nous parle de Sway

Winston Struye, professeur chez Slideluck Youth Initiative nous parle de Sway

Concepteur PowerPoint évolue !

Concepteur PowerPoint évolue !