CHANGER LA CASSE DANS LES CELLULES SELECTIONNÉES

Commentaire de papol2 le 15/04/2008 20:55:01

Intéressant, sauf que cela ne marche pas si la cellule ne contient qu'une lettre ou des lettres unitaires séparées par des signes ou chiffres (par exemple a-b , elle(s) reste(nt) désespérément en majuscule(s), car dans ce cas il n'y apas de différence entre "tout en majuscule" et "nom propre".
Il suffit pour y remédier de changer l'ordre des comparaisons, soit :

Sub ConvertCasse()
' Déclaration des variables
    Dim element
    ' Traitement de la sélection
    For Each element In Selection
        ' Il ne faut pas modifier les cellules qui ne soient pas du texte
        If element.HasFormula = False And element.Value <> "" Then
            Select Case True
                ' le contenu est en majuscule
                ' -> conversion en minuscule (LCASE= Lower Case)
            Case element.Value = UCase(element.Value)
                element.Value = LCase(element.Value)
                ' le contenu est en minuscule -> conversion en nom propre par
                ' appel à la fonction EXCEL : "NOMPROPRE()"
            Case element = LCase(element.Value)
                element.Value = Application.WorksheetFunction.Proper(element.Value)
            Case Else
                ' le contenu n'est ni en minuscule, ni nom propre,
                ' -> conversion en majuscule (UCASE = Upper Case)
                element.Value = UCase(element.Value)
            End Select
        End If
    Next
    ' Ajustement automatique de la colonne
    ActiveCell.Columns.AutoFit
End Sub

Et hop ! ça marche. (J'ai rajouté un test pour éviter de replacer les formules par leur résultat.

Papol2