Discussion :

[grisan29]

bonjour a vous tous
dans un usf client comment peut-on faire lors de l'écriture du prénom dans le textbox que celui-ci mette la 1ere lettre en majuscule comme Pascal et aussi si possible lors de nom composé comme Jean Pascal où Jean-Pascal
qu'il le fasse lors de l'inscription dans la feuille client

espérant m'être bien expliqué

Pascal

[Philippe Tulliez]

Bonjour,
En utilisant la fonction Excel Proper
Exemple :

Code :

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

1
2
 Dim Texte As String: Texte = "jean-philippe"
 Debug.Print Application.WorksheetFunction.Proper(Texte)

[grisan29]

bonsoir corona
ou dois je intégré ces lignes de codes pour essayer car dans le textbox ca ne marche pas

Pascal

[Philippe Tulliez]

Bonsoir Pascal,
Comment fais-tu pour placer une valeur dans TextBox ?
Et bien tu fais la même chose en l'incluant avec cette fonction.

Code :

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

1
2
Dim Texte As String: Texte = "jean-philippe"
TextBox1 = Application.WorksheetFunction.Proper(Texte)

C'est la même chose avec Excel
si dans la cellule A2, tu as comme valeur Jean-Philippe, en B2, tu écris cette formule

Code :

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

=NOMPROPRE(A2)

[grisan29]

Bonjour corona

Merci pour ta réponse mais ce n'est pas la cellule voisine qui dois se modifier mais celle qui recois la valeur du textbox et les données sont écrites comme ceci

Code :

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

i=Sheets("client").Range("CB35536").End(XlUp).Row

il y a 13 colonnes de remplies en meme temps de CB à CN dont

civilité,Nom, Prénom, à l'attention de:, adresse, complément adresse, CP, ville, Pays, téléphone, portable,Email, Fax

voila une précision que j'aurais du apportée au début
cdlt

Pascal

[Philippe Tulliez]

Bonjour,
J"ai répondu par un exemple à ta question

ou dois je intégré ces lignes de codes pour essayer car dans le textbox ca ne marche pas

Je crois qu'il serait utilie que tu reformules ta question quitte à changer de titre.