XL 2013 Mettre en majuscule les lettre avant l'espace

[SSIAP2]

Bonjour au forum

je viens vous demander un peu d'aide j'ai une textbox dedans est saisie un nom et un prénom exemple dupont damien comment pourrais je faire pour que le format ce met automatiquement en DUPONT Damien svp je suis un peu embêter pouvez vous m'aider svp merci

 

[zebanx]

Bonjour SSIAP2,

Trouvé sur google un code pour une fonction qui correspond à l'attendu.

Cdlt
zebanx

*https://www.generation-nt.com/reponses/majuscules-nom-minuscule-prenom-entraide-17317.html

 

[SSIAP2]

Bonjour ZEBANX merci pour ton information mais le problème c'est que moi c'est dans une textbox et non dans des cellules merci tout de même mais je vois pas comment l'adapter

 

[SSIAP2]

re j'ai trouver ceci mais sa fonctionne pas du tout
https://www.excel-downloads.com/thr...tbox-nom-majuscule-et-prenom-minuscule.85072/

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

 

[zebanx]

Bonsoir,

J'avais mal lu, désolé.
Je n'y connais vraiment pas grand chose aux USERFORM, mais pas de doute que quelqu'un va s'y pencher.

++

Edit : Bonsoir Job75 - réponse ultra rapide et top la réponse sur la rapidité de macro SD dans l'apm -)

 

[job75]

Bonjour SSIAP2, zebanx,

Private Sub Textbox1_Change()
Dim s
s = Split(TextBox1)
If UBound(s) > -1 Then s(0) = UCase(s(0)): TextBox1 = Join(s)
End Sub

A+

 

[job75]

Re,

Re,

Ah oui Application.Proper pour les autres mots :

Private Sub Textbox1_Change()
Dim s
s = Split(Application.Proper(TextBox1))
If UBound(s) > -1 Then s(0) = UCase(s(0)): TextBox1 = Join(s)
End Sub

A+

 

[SSIAP2]

Bonjour job75 un grannnnnd merci à vous parfait sa fonctionne parfaitement je vous remercie pour votre aide et je vous souhaite une excellente soirée