Mettre la prmière lettre d'un textbox en majuscule

[RONIBO]

Bonjour le forum,

Comme je l'ai indiqué dans le titre, je souhaite mettre la première lettre d'un textbox en majuscule automatiquement.

Ca concerne l'USF "Modification" et le textbox "TDesignaion"

Je vous joints le fichier'

Je remercie d'avance

A bientôt

 

[Pierrot93]

Re : Mettre la prmière lettre d'un textbox en majuscule

Bonjour,

regarde peut être ceci :

TextBox1 = StrConv(TextBox1, vbProperCase)

bonne journée
@+

 

[david84]

Re : Mettre la prmière lettre d'un textbox en majuscule

Bonjour,
je n'ai pas testé ton fichier mais as-tu essayé d'utiliser la méthode WorksheetFunction.Proper qui fait cela ?
Si par contre ton TextBox comporte plusieurs mots et que tu ne veux mettre que la 1ère lettre en majuscule, il te faudra alors utiliser d'autres méthode en isolant la 1ère lettre avec la fonction Left le reste de la phrase avec la fonction Right (longueur du texte -1 caractère) et en accolant le tout (une possibilité parmi d'autres).
A+

Edit : salut Pierrot !

 

[RONIBO]

Re : Mettre la prmière lettre d'un textbox en majuscule

Bonjour,

Merci à vous deux pour vos réponses

oui c'est un textbox ou il y aura plusieurs mots dedans, moi je veux juste mettre la première lettre en majuscule.

C'est un fichier qui a été prépare par Habitude que je salut au passage,

Dans le fichier y'a déjà un bout de code qui fait cela, mais j'ai pas réussis à l'intégrer dans le textbox concerne

A bientôt

 

[Pierrot93]

Re : Mettre la prmière lettre d'un textbox en majuscule

Re, bonjour David 🙂

autre approche :

Private Sub TextBox1_Change()
If Len(TextBox1) = 1 Then TextBox1 = UCase(TextBox1)
End Sub

A utiliser dans le module de l'usf concerné, nom du textbox à adapter....

 

[job75]

Re : Mettre la prmière lettre d'un textbox en majuscule

Bonjour RONIBO, Pierrot, David,

Private Sub TDesignation_Change()
TDesignation = UCase(Left(TDesignation, 1)) & Mid(TDesignation, 2)
End Sub

A+

 

[job75]

Re : Mettre la prmière lettre d'un textbox en majuscule

Re,

Pour éviter que le 1er caractère soit un espace :

Private Sub TDesignation_Change()
Dim t As String
t = TDesignation
If Left(t, 1) = " " Then t = Mid(t, 2)
TDesignation = UCase(Left(t, 1)) & Mid(t, 2)
End Sub

A+

 

[RONIBO]

Re : Mettre la prmière lettre d'un textbox en majuscule

Bonjour,

Merci pour vos code, j'ai résoudre mon problème 😉

A+