Majuscule et minuscules dans TextBox

[G'Claire]

Bonjour le forum

Ouf, enfin je m'en suis sortie avec ce fichier foutu, une bonne nuit de boulot (Avec des sauvegardes bien-sur, Lol).


Es-ce qu'il est possible a l'aide d'un TextBox de remplire une cellule en concervant un format avec des majuscules pour le nom des majuscules et le prénom des majuscules pour la premiere lettre (Sachant qu'il peu y avoir des prénoms composés):

ex :

DUPONT Jean-Christophe
DUPONT Alain

J'ai bien tenté de regarder sur "chercher" mais je n'ai pas trouvé pour l'ensemble de mes critères.

Merci, G'Claire

 

[Alain]

Bonjour,


Tu peux essayer avec :

Nom =TextBox1

Nom = UCase(Left(Nom, InStr(Nom, " "))) & WorksheetFunction.Proper(Right(Nom, Len(Nom) - InStr(Nom, " ")))

Range("A1")=Nom

Il y a peut-être plus simple mais çà tient sur une ligne !!

Sinon, en passant par une cellule intermédiaire dans la feuille :

=MAJUSCULE(GAUCHE(A2;CHERCHE(" ";A2)-1))&" "&NOMPROPRE(DROITE(A2;NBCAR(A2)-CHERCHE(" ";A2)))

Bon courage.

@+

 

[G'Claire]

Alain

Merci de ta réponse.

J'ai bien tenté de mettre ton code mais cela m'affiche une erreur et cela surligne

Nom = TextBox1

Merci G'Claire

 

[Alain]

Bonsoir,


Je te joins un petit fichier exemple.

Bonne soirée.


@+

 

[G'Claire]

Alain

Bonjour,

Je te répond un peu tardivement, car j'étais sur la sonorisation et l'éclairage d'un spectacle.

J'ai bien essayé ton fichier mais rien ne se passe, il faut bien rentrer le nom et prenom dans le TextBox et faire Ok?

Merci, G'Claire