vba

Question

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&#233;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.

valtrase · Answer

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&#233;

tump · Answer

je propose plus simple


Mid(TextBox1.Text, 1, 1) = UCase(Mid(TextBox1.Text, 1, 1))

bonne prog 

poum :-)

jpleroisse · Answer

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

tump · Answer

oui, chez moi &#231;a marche
c'est bizarre

essaye alors &#231;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 :-)

valtrase · Answer

Vi trois variables &#231;a deviens vachement plus simple !!!!! et surtout pas universel

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

tump · Answer

h&#233; ho jai pas dit que cetait plus simple
jessaie de laider cest tout
fenix, as-tu essay&#233; dutiliser la fonction de valtrase? ya pas de raison que &#231;a ne marche p&#244;

poum :-)

Vba

6 réponses

Discussions similaires