saisir en majuscule les initials des mots

Question

salut les amis
voila, je souhaiterai qu'à la siasie dans un edit d'une phrase par l'utilisateur que l' initial (le premier caractère du mot) de chaque mot soit en majuscule et le reste en miniscule. si quelqu'un à une fonction qui s'exécute sur l'evènement OnChange, je suis à son ecoute.
Aussi, j'aimerai pouvoir supprimer l'excès d'espace, par exemple je   suis   content -> je suis content.
j'aten vos propositions.

PCPT · Answer

salut, Option Explicit Private Sub Text1_Change() Text1.Text = StrConv(CleanSpaceChars(Text1.Text), vbProperCase) Text1.SelStart = Len(Text1.Text) End Sub 'http://www.codyx.org/snippet_supprimer-espaces-multiples_165.aspx Private Function CleanSpaceChars(ByVal vsInput As String) As String Do While InStr(1, vsInput, " ") <> 0 ' 2 espaces dans ces guillemets vsInput = Replace(vsInput, " ", " ") ' 2 espaces dans ces guillemets, puis 1 Loop CleanSpaceChars = vsInput End Function ++ PCPT [AFCK]

Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

vbnino · Answer

Salut!

 -Ou:

   Public Function Maj_(text As String) As String
            First = Left$(text, 1)
            First = UCase(First)
            Maj_ = First & Right$(text, Len(text) - 1)
   End Function

-ciao!!!

PCPT · Answer

vbnino 
-> "de chaque mot", pas juste le premier !

vbnino · Answer

ah! j'ai compris merci

Saisir en majuscule les initials des mots

4 réponses

Votre réponse

Discussions similaires