Changer la casse dans les cellules selectionnées

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 606 fois - Téléchargée 48 fois

Contenu du snippet

Cette procédure permet de basculer alternativement le contenu des cellules sélectionnées, de Majuscule en Minuscule ou en Initiale Majuscule (Majuscule en début de chaque mot)
Cette procédure pourra être stockée dans le classeur de macros personnelles et rattachée à un raccourci clavier (exemple CTRL k (k comme lettre "K"apitale)) ou mieux encore convertie en macro complementaire
REMARQUE : A CE PROPOS IL EST IMPOSSIBLE DE MODIFIER UNE MACRO COMPLEMENTAIRE AUSSI N'OUBLIEZ PAS DE GARDER LE CODE SOURCE DE CELLE-CI

Source / Exemple :


Sub ConvertCasse()

' Déclaration des variables

Dim element

' Traitement de la sélection

For Each element In Selection

Select Case True
' le contenu est en minuscule -> conversion en Majuscule (UCASE = Upper Case)
    Case element.Value = LCase(element.Value)
        element.Value = UCase(element.Value)
' le contenu est en majuscule -> conversion en initiale majuscule par appel à la fonction EXCEL : "NOMPROPRE()"
    Case element= UCase(element.Value)
        element.Value = Application.WorksheetFunction.Proper(element.Value)
    Case Else
' le contenu n'est ni majuscule, ni minuscule -> conversion en minuscule (LCASE= Lower Case)
        element.Value = LCase(element.Value)
    End Select

Next

' Ajustement automatique de la colonne

ActiveCell.Columns.AutoFit

End Sub

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_Isa45

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.