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

Signaler
Messages postés
181
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
28 octobre 2010
-
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
-
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

13 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,

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
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
36
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 #
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
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]
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
chaine = ucase(left$(chaine,1)) & right$(chaine,len(chaine) -1)
                                            
désolé j'ai oubllié une parenthèse à la fonction Ucase

GRENIER Alain[8D]
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
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
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
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)
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Exploreur
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
36
PCPT a raison, elle existe bien aussi en VB6, je n'en été pas sur.

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
22
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
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
22
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
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Bonjour Jmfmarques,
Tu te compliques la vie là...
A+
Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
12
Mais tes explications/codes sont toujours fort appréciables ainsi que celles des autres personnes aussi....
A+
Exploreur
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
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