Mettre des majuscules a chaques début de mots

[G'Claire]

Salut a toutes et tous.

Je fais une entrée par un TextBox dans une cellule, mais j'aimerai que cette entrée s'ajoute en mettant des majuscules a chaque début de mots.

Ex : Mon Amie La Rose.

Merci, G'Claire

 

[Alain]

Bonjour,


Tu peux essayer avec :

Range("A1")=TextBox1 <---- à remplacer par le nom de ton TextBox
Range("A1") = Application.WorksheetFunction.Proper(Range("A1"))

Si A1 est ta cellule de réception.



@+

 

[G'Claire]

Re le forum

Alain

Merci de ta réponse, voici mon code pour le placement des données:

'=========place les 3 Textbox
TextBox3 = Format(TextBox3.Value, "###0' 00s") 'format nombre TextBox3
With Sheets("Tool_chansons")

.Range("B" & DerniereLigne) = TextBox1
.Range("C" & DerniereLigne) = TextBox2
.Range("D" & DerniereLigne) = TextBox3

End With

Par contre tu m'avais fais une démo pour renvoyer les données pour mettre un nom et un prenom sous une certaine forme, tout en majuscule pour le nom et la première lettre en majuscule pour le prénom (en tenant compte qu-il peut y avoir des prénoms composés), et je n'ai pas réussi a le faire fonctionner cela ne ma faisait aucun changement.

Je ne me souviens plus de quel post cela était (J'en faits beaucoup car je début, Lol)

Merci encore, G'Claire

 

[Alain]

Rebonjour,



J'ai retrouvé le post (en date du 4/06) :

Nom =TextBox1

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

Range("A1")=Nom

J'avais testé, çà marchait.

Mais quelle est ta question ?


@+

 

[G'Claire]

Re, tout le monde les gens

Alain, oui c'est vrai ton fichier fonctionne trééééééééééés bien, mais il fallait l'enregistré avant et moi je faisait l'essai directement du lien.

Je vais essayer d'inclure ton fichier, dans le mien.

Et pour le post précédant comment il faut que je modifie le code, car j'ai essaye et cela n'a rien donné.

Merci, G'Claire

 

[G'Claire]

Le forum

Alain

Bon décidemment, c'est pas gagné. C'est vrai que le fichier est un fichier d'origine de Thierry et il est assez avancé.


J'y est inclus ton fichier, j'ai bien verifié au niveau du TexBox si c'était le même nom, par contre c'est vrai que la cellule utilisée pour la réception de la donné varie, c'est peu être là le hic, car pour le moment cela se met a la fin sans modification.

Es-ce que tu peux m'aiguiller pour pouvoir modifier ce fichier?

Merci, G'Claire

 

[Alain]

Bonsoir,


Je te joins le fichier modifié.

Seulement les 3 lignes de validation étaient à corriger, une dans chaque procédure.

Il fallait remplacer TextBox1.Value par :

WorksheetFunction.Proper(TextBox1.Value)

car maintenant tu ne veux qu'une majuscule à chaque mot.

Bonne soirée.


@+

 

[G'Claire]

Le forum

Alain, merci .

J'ai utilisé tes deux méthodes, a chaques mots pour une validation que j'avais besoin pour des titres de chansons et le deuxième pour nom et prénom (Majuscule = NOM et Majuscule premiere lettre = Prénom) cela fonctionne bien.

J'ai une question et une erreur

Ma question, es-ce qu'il est possible d'avoir plutôt le prénom en premier et le nom en deuxième en gardant la même apparence (Prénom et NOM) car systématiquement j'ai le nom en premier et en majuscule

et mon erreur

Depuis que j'ai fait la modif (En esperant l'avoir faite comme il faut, mais les cellules se remplissent correctement), quand je veux faire une mise a jour dans le fichier de Thierry, le débogueur me donne une erreure sur ce code :

Private Sub CommandButton5_Click() 'MODE MAJ VALIDATION MAJ
Dim Msg As String
Dim NomTemp As String
ListBox1.Value = ""
If TextBox1 = "" Then
MsgBox "Votre Contact n'a pas de nom ? ", _
vbCritical, "Thierry's Démo = Mode Nouveau Validation Error"
Exit Sub
End If
If TextBox2 = "" And TextBox3 = "" Then
MsgBox "Votre Contact doit au minimu avoir un Email ou un Téléphone", _
vbCritical, "Thierry's Démo = Mode Nouveau Validation Error"
Exit Sub
End If
With Sheets("database")
'
' ci-dessous la modif
'
Dim Nom As String
Nom = UserForm1.TextBox1
Nom = UCase(Left(Nom, InStr(Nom, " "))) & WorksheetFunction.Proper(Right(Nom, Len(Nom) - InStr(Nom, " ")))

.Range("A" & L2).Value = Nom '<---'<---
.Range("B" & NomLBindex).Value = TextBox2.Value
.Range("C" & NomLBindex).Value = TextBox3.Value
End With
MsgBox TextBox1 & " à bien été mis à jour " _
& vbCrLf & vbCrLf & vbTab & "Nom = " & vbTab & TextBox1 _
& vbCrLf & vbCrLf & vbTab & "Mail = " & vbTab & TextBox2 _
& vbCrLf & vbCrLf & vbTab & "Tel = " & vbTab & TextBox3, _
vbInformation, "Thierry's Démo => Mode Mise à Jour Accomplie"

Msg = MsgBox("Voulez-vous continuer pour d'autres Mise à Jours ?", _
vbYesNo, "Thierry's Démo => Mode Nouveau Continuer ?")
If Msg = vbYes Then
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox6.Visible = True
Else
Unload Me
UserForm1.Show
End If

End Sub

Au niveau de

.Range("A" & L2).Value = Nom '<---'<---

cela souligne L2

De quoi cela peux provenir?

Merci beaucoup, G'Claire