Placer dans un module en public ou dans une forme en private prend un string en paramètre et le renvoi formatté.
Source / Exemple :
Public Function UCFirst(Atext As String) As String
Dim MyText As String
Dim LI, LJ, LK As Long
Dim MyTab(10) As String
MyText = Atext
MyText = Trim(MyText)
MyText = LCase(MyText)
MyText = MyText & " "
LI = InStr(MyText, " ")
LJ = 0
LK = 0
Do While LI <> 0
'il y a plusieurs mots
MyTab(LK) = Mid(MyText, LJ + 1, LI - (LJ + 1))
'MsgBox (MyTab(LK))
LJ = LI
LI = InStr(LI + 1, MyText, " ")
LK = LK + 1
Loop
MyText = ""
For LI = 0 To LK - 1
MyTab(LI) = UCase(Mid(MyTab(LI), 1, 1)) & Mid(MyTab(LI), 2, Len(MyTab(LI)) - 1)
'MsgBox (MyTab(LI))
MyText = MyText & " " & MyTab(LI)
Next LI
UCFirst = Trim(MyText)
End Function
Conclusion :
Attention : nombre de mot autorisé que 10 !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.