1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Public Function GetProperName(ByVal TextToConvert As String) As String
Dim i As Integer
Dim separateur
separateur = Array(" ", ";", ":", "-", "~", "@", "_", "&", "*", "#", "'", Chr(160))
TextToConvert = LCase(TextToConvert)
'mettre la première lettre en majuscule
TextToConvert = UCase(Mid(TextToConvert, 1, 1)) + Right(TextToConvert, Len(TextToConvert) - 1)
'mettre en majuscule après chaque séparateur
For i = 1 To Len(TextToConvert) - 1
If UBound(Filter(separateur, Mid(TextToConvert, i, 1))) >= 0 Then
TextToConvert = Left(TextToConvert, i) + UCase(Mid(TextToConvert, i + 1, 1)) + Right(TextToConvert, Len(TextToConvert) - i - 1)
End If
Next i
GetProperName = TextToConvert
End Function |
Partager