[RESOLU]Changement de première lettre en majuscule

[spyki]

Bonjour à toutes et tous!
je viens vers vous parce que j'ai un souci avec mon code
au fait j'ai voudrais que dans la feuille que j'ouvre le première lettre se convertisse automatiquement en majuscule......
j'ai écrit un code celui ci fonctionne pour toutes les lettres de l'alphabet.... sauf pour le z

fichier joint:

Qqun peut m'aider a trouver mon erreur?

merci!!!

 

[mth]

Re : Changement de première lettre en majuscule

Bonjour Spyki

Un essai ci-dessous (avec un code emprunté à Pierrot93 🙂)

Private Sub Worksheet_Change(ByVal Target As Range)
    Target = StrConv(Target, vbProperCase)
End Sub

Bonne journée,

mth

edit: bonjour bond 🙂 ... et bonjour Gilbert 🙂

 

[bond]

Re : Changement de première lettre en majuscule

Remplace ton code par :

Target.Value = UCase(Left(Target.Value, 1)) & Mid(Target.Value, 2)

à tester...

edit : hello mth

 

[gilbert_RGI]

Re : Changement de première lettre en majuscule

Bonjour

code à mettre dans la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
Target.Value = UCase(Left(Target.Value, 1)) & Right(Target.Value, Len(Target) - 1)
End Sub

🙄

 

[spyki]

Re : [RESOLU]Changement de première lettre en majuscule

Merci à vous tous c'est bon j'essaie