Mise en forme - ucfirst

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 336 fois - Téléchargée 39 fois

Contenu du snippet

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 !

A voir également

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.