Transcrire un texte en majuscule ==> Minuscule avec première lettre en majuscule

[Mattttttttttrix]

Bonjour à tous ,

Je reviens (comme à mon habitude) car je bloque...

J'ai un fichier tout en majuscule, et je souhaiterai passer les lignes sélectionner en minuscule, sauf première lettre. En français normal quoi

J'ai trouvé plusieurs code, mais ca donne rien...

Private Sub CommandButton1_Click()

For Each C In Selection
C.Value = LCase(C.Value)
C.Value = Application.WorksheetFunction.Proper(C.Value)
Next C

End Sub

Private Sub CommandButton2_Click()

Dim Valeur As String
Dim Plage, Cellule As Range

' Ici spécifier la plage à couvrir !
Set Plage = Range("d6:d700")

For Each Cellule In Plage
Valeur = Mid(Cellule.Value, 2)
Valeur = UCase(Mid(Cellule.Value, 1, 1)) & Valeur
Cellule.Value = Valeur
Next Cellule


End Sub

Private Sub CommandButton3_Click()

Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
Cell = UCase(Left(Cell, 1)) & LCase(Right(Cell, Len(Cell) - 1))
Next
End Sub

C'est du codes trouvés sur le site et celui qui marche est celui de NomPropre.

Auriez vous une idée lumineuse?

Bien le merci !

 

[sousou]

Re : Transcrire un texte en majuscule ==> Minuscule avec première lettre en majuscule

Bonjour
Dans le troisème code si tu remplace activesheet.usedrange par selection ca devrait le faire
Private Sub CommandButton3_Click()

Dim Cell As Range
For Each Cell In selection
Cell = UCase(Left(Cell, 1)) & LCase(Right(Cell, Len(Cell) - 1))
Next
End Sub

 

[Pierrot93]

Re : Transcrire un texte en majuscule ==> Minuscule avec première lettre en majuscule

Bonjour,

peut être ceci, si j'ai bien compris :

Dim c As Range
For Each c In Range("D6", Range("D65536").End(xlUp))
    c.Value = StrConv(LCase(c.Value), vbProperCase)
Next c

bon après midi
@+

Edition : bonjour Sousou

 

[Mattttttttttrix]

Re : Transcrire un texte en majuscule ==> Minuscule avec première lettre en majuscule

Je vous aime!!

Merci!!

 

[kjin]

Re : Transcrire un texte en majuscule ==> Minuscule avec première lettre en majuscule

Bonjour,

Dim Cel As Range
For Each Cel In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
    Cel.Value = UCase(Left(Cel, 1)) & LCase(Right(Cel, Len(Cel) - 1))
    'Cel = Application.Proper(Cel) 's'il n'y a qu'un mot
Next

A+
kjin