Mise en forme - ucfirst

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 731 fois - Téléchargée 42 fois

Commenter

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

S'inscrire maintenant

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.

Du même auteur (SimonKari)