Page 1 sur 1

Majuscule uniquement en début de phrase

Posté : 26 novembre 2015, 06:45
par Inguyone
Bonjour le Forum,

Avec l'aide de Banzai64, j'ai une macro qui force la majuscule en début de phrase. Le problème est qu'il faudrait que je puisse utiliser des majuscules dans la phrase et que ce code interdit cette manœuvre en transformant mes majuscules en minuscules si elles ne sont pas placées en début de phrase.

Est-il possible de modifier ce code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column

Case 16 ' Colonne P
If Target <> UCase(Left(Target, 1)) & LCase(Mid(Target, 2)) Then
Target = UCase(Left(Target, 1)) & LCase(Mid(Target, 2))
End If
End Select
End Sub

Merci d'avance pour votre aide.

Re: Majuscule uniquement en début de phrase

Posté : 26 novembre 2015, 06:54
par Theze
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 16 Then Exit Sub
    Target.Value = UCase(Left(Target.Value, 1)) & Mid(Target.Value, 2)

End Sub

Re: Majuscule uniquement en début de phrase

Posté : 26 novembre 2015, 07:19
par Inguyone
Theze,

Merci pour cette réponse aussi rapide, sans vouloir abuser, peut-on étendre ce code aux colonnes 8,9 et 11.

Encore merci votre aide

Re: Majuscule uniquement en début de phrase

Posté : 26 novembre 2015, 08:10
par Inguyone
Theze,

J'ai trouvé en adaptant ton code et un ancien que j'utilisais. Cela fonctionne très bien.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 8 To 9, 11 ' Colonne H, I et K
If Target.Value <> UCase(Target.Value) Then
Target.Value = UCase(Left(Target.Value, 1)) & Mid(Target.Value, 2)
End If
End Select
End Sub

Une fois de plus merci pour l'aide apportée.