Vba

keno -  
Armojax Messages postés 1860 Date d'inscription   Statut Membre Dernière intervention   -
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)

et cette instruction : textbox=upcase(left(textbox;1)) & right(textbox;len(textbox)-1) pose probleme lors de la compilation.

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

4 réponses

benumiit82 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai pas mal oublié les syntaxes VB. Mais pour idée je ferais ce pseudo-code (pascal)

Var temp : string;

temp := textbox.text;
temp := Upcase(temp[0]); // met en majuscule le caractère 0

textbox.text := temp;



J'attend les critiques ! lol
0
keno
 
merci mais cela ne marche toujours pas
0
Armojax Messages postés 1860 Date d'inscription   Statut Membre Dernière intervention   1 528
 
Bonjour Keno,

textbox.Text = Application.WorksheetFunction.Proper(textbox.Text)
0
Armojax Messages postés 1860 Date d'inscription   Statut Membre Dernière intervention   1 528
 
Re, keno,

Excuse, j'ai mal lu ton post : la solution que je mets au n° 3 mettra aussi la première lettre de chaque mot en majuscule.
Ta première idée est la bonne, c'est seulement la syntaxe qui plante :

textbox = ucase(left(textbox;1)) & right(textbox;len(textbox)-1)
0