Premiere lettre d'un mot en majuscule. Comment ?Résolu

Question

Hello,

Comment s'appelle la fonction qui permet de mettre la première lettre d'un mot en majuscule ?
UCAse met tout en majuscule.

Merci d'avance pour vos réponse.

Nono78220

PCPT · Accepted Answer

salut,

pour un mot?
MsgBox StrConv("bonjour", vbProperCase)

++ 
PCPT  [AFCK]
 Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_casy · Answer

Je n'ai pas souvenir qu'elle existe en VB6, en VB.NET il me semble que oui, mais pas en VB6

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

cs_Galain · Answer

Il n'y en a pas
Voila un bout de code qui fait ce que tu demandes

Dim chaine as string
chaine = ucase(left$(chaine,1) & right$(chaine,len(chaine) -1)

chaine = 1° lettre en majusule  + le reste de la chaine

GRENIER Alain[8D]

cs_Galain · Answer

chaine = ucase(left$(chaine,1)) & right$(chaine,len(chaine) -1)
                                              
désolé j'ai oubllié une parenthèse à la fonction Ucase

GRENIER Alain[8D]

cs_Exploreur · Answer

Salut,
Essaye cela : 
Dim toto
toto = "Tata"
toto = UCase(Left(Text1.Text, 1))
Text1.Text = Replace(Text1.Text, Left(Text1.Text, 1), toto, 1, 1)

A+
Exploreur

cs_Exploreur · Answer

Euh pardon..correction
Dim toto
toto = Text1.Text << ton textbox
toto = UCase(Left(Text1.Text, 1))
Text1.Text = Replace(Text1.Text, Left(Text1.Text, 1), toto, 1, 1)

cs_Exploreur · Answer

Exploreur

cs_casy · Answer

PCPT a raison, elle existe bien aussi en VB6, je n'en été pas sur.

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

jmfmarques · Answer

PCPT a raison et exoste aussi en VB5...

Pour ceux que celà intéresse, maintenant, voir ceci (plus général)

Private Sub Command1_Click()
  toto = "voilà"
  Mid(toto, 2, 1) = UCase(Mid(toto, 2, 1))           '    mettra en majuscule la 2ème lettre ici (donc le O de voilà
  MsgBox toto
End Sub

jmfmarques · Answer

Poue être plus flexible, bien sur :

Private Sub Command1_Click()
  la = 3  'pour passer en majuscules à compter du 3ème caractère
  comb = 5  'jusqu'au 5ème caractère
  toto = "voilà le truc"
  Mid(toto, la, comb) = UCase(Mid(toto, la, comb))
  MsgBox toto
End Sub

cs_Exploreur · Answer

Bonjour Jmfmarques,
Tu te compliques la vie là...
A+
Exploreur

cs_Exploreur · Answer

Mais tes explications/codes sont toujours fort appréciables ainsi que celles des autres personnes aussi....
A+
Exploreur

Utilisateur anonyme · Answer

Salut,

Il est très bien son code.
Une fonction serait même plus claire :



Private Function UCaseIndex(ByVal Str As String, Index As Integer, _
 Optional Length As Integer = 1) As String
  Mid(Str, Index, Length) = UCase(Mid(Str, Index, Length))
  UCaseIndex = Str
End Function,

----

(Coloration syntaxique automatique par Kenji)





__________
Kenji

Premiere lettre d'un mot en majuscule. Comment ?

13 réponses

Votre réponse

Discussions similaires