Nom tout en majuscule...

[M.D]

Bonjour,

Bon 1er Mai

Suite à mon message sollicitant de l'aide Eric.C concernant les majuscules aux noms propres Eric.c m'avais transmis la procédure suivante

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

Super et encore Merci à lui.

Existe-t-il une provedure semblable pour que Tout le NOM soit en majuscule.


Merci

Cordialement

M.D

 

[Gardien de phare]

Re : Nom tout en majuscule...

Bonjour,

Voir la fonction UCASE

 

[Eric C]

Re : Nom tout en majuscule...

Bonjour le forum
Bonjour M.D, bonjour Gardien de phare

Ceci pour la saisie du nom puis prénom (le tout en minuscule) dans ton TextBox.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = UCase(Mid(TextBox1, 1, InStr(1, TextBox1, " "))) & _
Application.Proper(Mid(TextBox1, InStr(1, TextBox1, " ") + 1))
End Sub

Bon 1er mai

 

[M.D]

Re : Nom tout en majuscule...

Merci à François et à Eric.C

🙂
C'est impeccable


Bonne journée

M.D

 

[Gen Rose]

Re : Nom tout en majuscule...

Bonjour,

Une autre solution par formule:
Mot à convertir en A1; écrire en B1 =SUBSTITUE(MAJUSCULE(A1);CAR(201);CAR(69))

que j'avais emprunté sur cet excellent fil, qui traite aussi des accents et de d'autres codes.

Bonne journée,