Discussion :

[Korigoth]

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

[SfJ5Rpw8]

Bonjour,

utilise la fonction Excel NomPropre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Une petite fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Korigoth]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Fiche.Cells(CodeEmploye, 3) = txt_prenom

donc la jevais devoir faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Korigoth]

Merci beaucoup!


je vien de comprendre deja une partie des Fonctions ^^

et le tout marche très bien !