lcastell
Messages postés47Date d'inscriptionlundi 6 novembre 2000StatutMembreDernière intervention 3 mai 2005
-
21 janv. 2005 à 08:16
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutModérateurDernière intervention23 décembre 2008
-
21 janv. 2005 à 22:09
Bonjour,
Comment faire pour sélectionner dans une TextBox seulement le premier mot pour mettre celui-ci en majuscule. Ex : nom prénom, je veux mettre en majuscule seulement le NOM et la première lettre du Prénom, sachant que les deux sont séparés d'un espace.
metalcoder
Messages postés193Date d'inscriptionjeudi 14 février 2002StatutMembreDernière intervention25 mars 20111 21 janv. 2005 à 08:46
sur une feuille tu met un textbox et un bouton
Private Sub Command1_Click()
'recherche du caractère espace entre le nom et le prénom
'a contient la position du caractère espace
a = InStr(1, Text1.Text, " ")
'On garde que le nom dans la variable b (le nom c'est le début jusqu'a l'espace -1 caractère)
'b contient le nom en minuscule
b = Mid(Text1.Text, 1, a - 1)
'On convertis la chaine b en majuscule a l'aide de format
'c contient le nom en majuscule
c = Format(b, ">")
'On utilise replace pour remplacer le nom en mini par le majuscule
Text1.Text = Replace(Text1.Text, b, c)
End Sub
ps: il faut pas d'espace dans le nom sinon seul le début du nom sera en majuscule et il faut que le nom soit toujours en premier sinon c'est le prénom qui sera en majuscule