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

Pierrot93

XLDnaute Barbatruc

• 9 Octobre 2013

• #2

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

Bonjour,

regarde peut être ceci :

Code:

TextBox1 = StrConv(TextBox1, vbProperCase)

bonne journée
@+

 

Vote positif 1 Vote négatif

D

david84

XLDnaute Barbatruc

• 9 Octobre 2013

• #3

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 !

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 9 Octobre 2013

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Octobre 2013

• #5

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

Re, bonjour David 🙂

autre approche :

Code:

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....

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Octobre 2013

• #6

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

Bonjour RONIBO, Pierrot, David,

Code:

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Octobre 2013

• #7

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

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 9 Octobre 2013

• #8

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

Bonjour,

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

A+

 

Vote positif 0 Vote négatif