Bonjour,

je dispose d'une textbox qui contient une chaine de caractere.
Je souhaiterais que la 1ere lettre du 1er mot de cette chaine soit en majuscule.

j'ai tenter de réaliser cela avec l'instruction suivante mais le probleme est que la1ere lettre de chaque mot se met en majuscule.

textbox.Text = StrConv(textbox.Text, vbProperCase)

si quelqun peut m'aider.Merci d'avance.

 

Lut,

Function CaseUp(Str As String)
  CaseUp = UCase(Left(Str, 1)) & Right(Str, Len(Str) - 1)
End Function

TextBox1.Text = CaseUp(TextBox1.Text)

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé

je propose plus simple

Mid(TextBox1.Text, 1, 1) = UCase(Mid(TextBox1.Text, 1, 1))

bonne prog

poum :-)

Bonjour,
tump, as-tu essayés ta formule ? je l'ai copiée et essayée, mais cele ne marche pas.
Message de VB  "Variable requise, impossible de l'affecter à cette expression."
Si je tappe TextBox1.Text = Mid(Text1.Text,1 , 1), la 1ère lettre se met en majuscule mais les autres sont effacées.

jpleroisse

oui, chez moi ça marche
c'est bizarre

essaye alors ça :

dim contenu=Textbox1.Text
dim prems as string=ucase(Mid(contenu,,1 , 1))
dim reste as string=Mid(contenu,2,len(contenu))

contenu=prems & reste

Textbox1.Text=contenu



poum :-)

Vi trois variables ça deviens vachement plus simple !!!!! et surtout pas universel

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé

hé ho jai pas dit que cetait plus simple
jessaie de laider cest tout
fenix, as-tu essayé dutiliser la fonction de valtrase? ya pas de raison que ça ne marche pô


poum :-)