Mettre une majuscule après un point en VBA

Private Sub Part_ObservationsC_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim lmaj As Integer, lmin As Integer, toto As String, titi As String, mestrucs As String
lmaj = Asc(UCase(Chr(KeyAscii)))
lmin = Asc(LCase(Chr(KeyAscii)))
mestrucs = ";.!:?" ' tu mets ici toutes tes ponctuations devant entraîner une majuscule...
Select Case Part_ObservationsC.SelStart
Case 0
KeyAscii = lmaj
Case 1
KeyAscii = lmin
Case Else
toto = Mid(Part_ObservationsC.Text, Part_ObservationsC.SelStart, 1): titi = Mid(Part_ObservationsC.Text, Part_ObservationsC.SelStart - 1, 1)
If InStr(mestrucs, toto) > 0 Or (InStr(mestrucs, titi) > 0 And Mid(Part_ObservationsC.Text, Part_ObservationsC.SelStart, 1) = " ") Then
KeyAscii = lmaj
Else
KeyAscii = lmin
End If
End Select

End Sub

Cliquez pour agrandir...