Discussion :

[MeRc|LeSs]

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

[cari]

code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[méphistopheles]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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