Rapport de message :*
 

Re: Majuscule 1er mot

Titre du sujet : Re: Majuscule 1er mot
par myDearFriend! le 13/12/2022 19:56:42

Bonsoir tactic6, le Forum,

Tu devrais pouvoir utiliser quelque chose comme ça, peut-être :

Sub MajusculePremiereLettre_Et_MinusculesPourLeReste()
Dim myRange As Range, R As Range

    Set myRange = [c15:c52]
   
    For Each R In myRange
        R.Value = UCase(Left(R.Value, 1)) & LCase(Mid(R.Value, 2))
    Next R

    'MsgBox ("Fin de traitement")
End Sub
  

Nb : je me suis permis de renommer ta procédure car, visiblement, tu ne fais pas qu'imposer la première lettre en majuscule, tu imposes également tout le reste en minuscules (et ça fait une nuance qui peut avoir son importance).

Bien cordialement,