Nom en majuscule

[M.D]

Bonjour à tous,


Souvent dans les USERFORM, se trouve des noms de famille, noms propres, tous ces noms doivent commencer par une Majuscule.
existe-t-il une formule qui transforme la minuscule en majuscule pour la premières lettre, ou le nom en majuscule en totalité

Merci de votre aide

M.D

 

[Guest]

Re : Nom en majuscule

Bonsoir,

Application.Proper ("alain dupont") donnera : Alain Dupont

Ucase("dupont") & UCase("a") & "lain" donnera DUPONT Alain.

A+

 

[M.D]

Re : Nom en majuscule

Re, bonsoir
Merci pour votre réponse, mais comment peut-on l intégré dans une procédure dans un textbox par exemple

M.D

 

[Eric C]

Re : Nom en majuscule

Bonsoir le forum
Bonsoir M.D, bonsoir Hasco

Essaies ceci dans ton USF :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1) And Len(TextBox1) > 1 Then TextBox1 = Application.Proper(TextBox1): Exit Sub
TextBox1 = ""
End Sub

 

[Staple1600]

Re : Nom en majuscule

Bonsoir à tous

Une autre possibilité avec StrConv et Split
exemple basique ci-dessous

Private Sub CommandButton1_Click()
Dim NOM$, PRENOM$
NOM = StrConv(Split(TextBox1)(0), vbUpperCase)
PRENOM = StrConv(Split(TextBox1)(1), vbProperCase)
MsgBox NOM & Chr(32) & PRENOM
End Sub

fonctionnel dans un cas précis: il y doit y avoir qu'un seul espace dans le textbox.

 

[M.D]

Re : Nom en majuscule

Merci pour votre aide

M.D