Majuscules début de mot

Bonjour à tous,

Je vous soumets un petit problème auquel je n’ai pas trouvé de solution. Je ne maitrise pas encore complètement VBA.
J’ai une « textbox » que je dois remplir avec des prénoms. Je voudrais que la saisie s’effectue en minuscules sans tenir compte des débuts de prénoms et qu’à l’issue de la validation, Excel mette les majuscules automatiquement en début de mots.
J’ai donc rentré la formule suivante qui fonctionne très bien, mais pas sur les prénoms composés. Pierre fonctionne, mais Jean pierre … pas. (txtPrenoms étant ma textbox.
(Formule que j’ai prise sur un exemple)

Private Sub txtPrenoms_Change()
Dim st As String
st = txtPrenoms.Text
txtPrenoms.Text = UCase(Mid(st, 1, 1)) & Mid$(st, 2, Len(st))
txtPrenoms.SelStart = Len(st)
End Sub

Si vous avez une solution à me proposer et m’expliquer, j’en serais très heureux et je vous en remercie à l’avance.

DMT

Bonjour

Mimimathy avait déjà publié, je crois à ce sujet
Regarde le fichier joint avec le code
cordialement
orguyrineExercice N° 3.xlsm (1,1 Mo)

Bonsoir orguyrine,

C’est exactement ce qui me fallait, je suis surpris de la simplicité de la formule, je me suis compliqué l’existence pour rien …

Grand merci à toi et très bonne soirée à tous.

DMT

je suis heureux d avoir répondu à ta question
orguyrine

Et moi donc …

Bonne soirée à toi et à une prochaine pour une autre question.

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.