Majuscule en évènementielle

[Vidralta]

Bonsoir tout le monde

Aprés avoir lu, lu et re-lu les sujets portant sur les Majuscules, et n'ayant pas trouvé mon bonheur, je tente de trouver de l'aide en postant ce nouveau sujet!!

Je souhaite créer une Private Sub qui, dans certaines cellules, me change la première lettre de la phrase en Majuscule.

Exemple : bonsoir tout le monde -> Bonsoir tout le monde

La Sub suivante change toutes les lettres en majuscules :

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Range("A1:A10"), Target) Is Nothing Then Target.Value = Ucase(Target.Value)
End Sub

Et cette Sub change chaque premières lettre des mot en majuscule :

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Range("A1:A10"), Target) Is Nothing Then Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

Mais comment faire pour la première lettre de la phrase en Majuscule??

Dans l'attente de votre aide
Merci d'avance

 

[bqtr]

Re : Majuscule en évènementielle

Bonsoir Vidralta,

Voici un exemple :

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

Bonne nuit

P.O

 

[Vidralta]

Re : Majuscule en évènementielle

Parfait

Merci beaucoup bqtr
Bonne nuit