Tout en majuscule

[M.D]

Bonjour à tous,

J'utilise le code suivant, pour inscrire automatiquement dans un textbox le premiere lettre d'un nom en Majuscule

'-- (Majuscule au prénom première lettre)
Private Sub TextBox_prenom_Afterupdate()
TextBox_prenom.Value = Application.Proper(TextBox_prenom)
End Sub

Existe-t-il une formule comparable afin de mettre tout en entier en majuscule?

Merci d'avance

M.D

 

[gosselien]

Re : Tout en majuscule

bonsoir

ucase() devrait convenir 😱

 

[stefan373]

Re : Tout en majuscule

Bonsoir M.D et le forum,

Private Sub TextBox_prenom_Afterupdate()
TextBox_prenom.Value = UCase(TextBox_prenom)
End Sub

Voilà qui devrait faire l'affaire.🙂

A+ Stéfan


Edit: Bonsoir JBARBE et gosselien.

 

[JBARBE]

Re : Tout en majuscule

Bonsoir,

Rien de plus simple !

Ah pardon dans un texte box ! je n'avais pas bien lu

bonne soirée

 

[M.D]

Re : Tout en majuscule

Bonsoir,

Merci pour vos réponses. C'est impeccable

M.D

 

[Staple1600]

Re : Tout en majuscule

Bonsoir à tous

Une alternative pour un même résultat 😉

Private Sub TextBox_prenom_Afterupdate()
TextBox_prenom.Value = StrConv(TextBox_prenom,vbUpperCase)
End Sub