tt mettre en minuscule sauf la première lettre

[so]

bonjour,
j'ai mes cellules en majuscule, je souahite tout mettre en minuscule sauf la première lettre
Merci de votre aide

 

[_Thierry]

Bonjour El José, and So and So... Le Forum

Et en plus 'radicalo-bourrinos' ...

Option Explicit

Sub Thefirstletterincapseverywhereandwheneveryouwant()
Dim Cell As Range

    For Each Cell In Activesheet.Usedrange
        Cell = Application.Worksheetfunction.Proper(Cell)
    Next

End Sub

Ca va te 'scotcher' sur place toutes tes cellules !

Bon Appétit
[ol]@+Thierry[/ol]

 

[2passage]

Bonjour,

J'aime beaucoup le nom de la sub.. heureusement qu'il ne faut pas les retaper pour les lancer....

A+

 

[So]

merci encore les garçons, c'est nickel chrome
J'ai pas tenté le super combo 'radicalo-bourrinos' mais le plan de José est parfait
6u
So