Fonction ( NomPropre)

Salut à tous ,

J'ai une Zone de text (txtnp) et un bouttoncommand , lors de la saisie dans la zone .

je veux transformer la chaine de caractéres au format "Aaaaaaaa..."
1er lettre en majuscule apres le click sur le boutton nomé = cmdnp

code:

Code:

---

1 2 3 4 5 6 7 8

Public Function MajMin(chaine As String) As String Dim ch As String Dim ch1 As String ch = Left(chaine, 1) ch1 = Mid$(chaine, 2) MajMin = UCase(ch) & LCase(ch1) End Function

---

tu met une fonction Ubound Lbound dans l'evenement change de ton text:

Code:

---

1 2 3 4 5

private sub montext_change() dim Letre1 as string letre1= left (montext.text,1) montext.text= Ucase(lettre1) & Lcase(replace (montext.text,lettre1,"")) end sub

---

salut :wink:

Edit: zut, cari à posté la même chose avant moi