Forcer Majuscule en début de phrase

Bonsoir,

J'ai un bout de code qui tourne dans un fichier pour forcer les majuscules dans certaines cellules et la première lettre de chaque mots dans d'autres.

Pourriez-vous m'aider afin d'ajouter un morceau de code qui forcerait, uniquement la première lettre des phrases, en majuscule.

If Target.Count > 1 Then Exit Sub

Select Case Target.Column

Case 2 To 7, 12, 14

If Target.Value <> UCase$(Target.Value) Then

Target.Value = UCase$(Target.Value)

End If

Case 15

If Target.Value <> StrConv(Target.Value, vbProperCase) Then

Target.Value = StrConv(Target.Value, vbProperCase)

End If

End Select

Merci d'avance pour votre aide.

Bonjour

A tester

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  Select Case Target.Column
  Case 2 To 7, 12, 14   ' Colonne B, G, L et N
    If Target.Value <> UCase$(Target.Value) Then
      Target.Value = UCase$(Target.Value)
    End If
  Case 15               ' Colonne O
    If Target.Value <> StrConv(Target.Value, vbProperCase) Then
      Target.Value = StrConv(Target.Value, vbProperCase)
    End If
  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

Bonsoir Banzai64,

Le code fonctionne parfaitement.

Merci pour cette réponse aussi rapide.

Excellente soirée.

Bàv

Rechercher des sujets similaires à "forcer majuscule debut phrase"