XL 2013 Mettre en majuscule les lettre avant l'espace

zebanx

XLDnaute Accro

• 22 Août 2017

• #2

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

 

Pièces jointes

• majmin nom et prenom.xls

  38.5 KB · Affichages: 28

Vote positif 0 Vote négatif

S

SSIAP2

XLDnaute Occasionnel

• 22 Août 2017

• #3

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

 

Vote positif 0 Vote négatif

S

SSIAP2

XLDnaute Occasionnel

• 22 Août 2017

• #4

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

Code:

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

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 22 Août 2017

• #5

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

 

Dernière édition: 22 Août 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Août 2017

• #6

Bonjour SSIAP2, zebanx,

Code:

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Août 2017

• #7

Re,

Re,

Ah oui Application.Proper pour les autres mots :

Code:

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+

 

Vote positif 0 Vote négatif

S

SSIAP2

XLDnaute Occasionnel

• 22 Août 2017

• #8

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

 

Vote positif 0 Vote négatif