Vba

Fermé

keno - 30 avril 2005 à 15:11
Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 - 1 mai 2005 à 00:26

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.

A voir également:

Vba
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Erreur 1004 vba ✓ - Forum VB / VBA
Récupérer valeur cellule vba ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

benumiit82 Messages postés 2 Date d'inscription samedi 30 avril 2005 Statut Membre Dernière intervention 30 avril 2005
30 avril 2005 à 15:36

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

Réponse 2 / 4

keno
30 avril 2005 à 15:51

merci mais cela ne marche toujours pas

Réponse 3 / 4

Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 1 527
1 mai 2005 à 00:06

Bonjour Keno,

textbox.Text = Application.WorksheetFunction.Proper(textbox.Text)

Réponse 4 / 4

Armojax Messages postés 1858 Date d'inscription mercredi 19 janvier 2005 Statut Membre Dernière intervention 22 mars 2024 1 527
1 mai 2005 à 00:26

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)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters