Transformer du Texte

Bonjours,

je suis entrain de faire un projet et j'ai besoin d'aide pour une partie

Lorsque je click sur le boutton, je veux aller porter 2 zones texte dans les cellules. Je veux que chaque première lettre du nom et du prénom sois en Majuscule. ( Tout est correct jusqu'à ici )

Mon problème vien des noms composés..... si la personne entre jean-phillipe ou jean phillipe

je veux que la cellule devien Jean-Phillipe et pas Jean-phillipe ou
maxime olivier devienne Maxime Olivier

Je ne suis pas sure si le monde vont utiliser le - ou le " " ( espace ) pour séparer les noms composé

comment puis-je faire pour que les jean-phillipe devienne Jean-Phillipe

Ma deuxième question provien du -

Comment puis faire pour faire une norme que si la personne à un nom composé les 2 seront séparé d'un - ( lorsque la personne le rentre avec un espace)


donc maxime olivier devien Maxime-Olivier
mais maxime-olivier reste Maxime-Olivier!

J'espère que vous comprendrais se que je recherche ^^


merci d'avance pour ceux qui pourront m'aider

Bonjour,

utilise la fonction Excel NomPropre...

Code:

---

1 2	msgbox WorksheetFunction.Proper ("maxime-olivier")

---

Une petite fonction

Code:

---

1 2 3 4 5 6

Function NomPropre(ByVal Str As String) As String   Str = Replace(Str, "-", " ") Str = StrConv(Str, vbProperCase) NomPropre = Replace(Str, " ", "-") End Function

---

NomPropre("maxime olivier") donnera Maxime-Olivier

Merci je vois bien les idées
mais maitenant reste a comprendre comment les appliquers !!

une fonction sa marche comment ??

call nompropre ?

dans mon boutton ok
si tout les conditions sont remplisent je faisais

Code:

---

Fiche.Cells(CodeEmploye, 3) = txt_prenom

---

donc la jevais devoir faire

Code:

---

1 2	call nompropre(txt_prenom) fiche.cells(codeemploye, 3) = nompropre ?

---

Code:

---

1 2 3 4 5 6 7

Function NomPropre(ByVal Str As String) As String   Str = Replace(Str, "-", " ") Str = StrConv(Str, vbProperCase) NomPropre = Replace(Str, " ", "-") End Function

---

Code:

---

Fiche.Cells(CodeEmploye, 3) = NomPropre(txt_prenom)

---

Merci beaucoup!


je vien de comprendre deja une partie des Fonctions ^^

et le tout marche très bien !