Saisir en majuscule les initials des mots

Signaler
Messages postés
1
Date d'inscription
vendredi 23 février 2007
Statut
Membre
Dernière intervention
29 août 2007
-
Messages postés
218
Date d'inscription
jeudi 13 juillet 2006
Statut
Membre
Dernière intervention
11 juillet 2010
-
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.

4 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
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]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
218
Date d'inscription
jeudi 13 juillet 2006
Statut
Membre
Dernière intervention
11 juillet 2010

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!!!
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
35
vbnino
-> "de chaque mot", pas juste le premier !
Messages postés
218
Date d'inscription
jeudi 13 juillet 2006
Statut
Membre
Dernière intervention
11 juillet 2010

ah! j'ai compris merci