Comment mettre la premiere lettre en majuscule?

bonjour
j'aimerais que la premier lettre d'une phrase soit en majuscule dans une zone de texte d'une formulaire

je veux code vba correspondant

quand je tape une phrase quelconque je souhaite obtenir ceci:
exemple:
Convertir automatiquement les liens dans le message
et pas
Convertir Automatiquement Les Liens Dans Le Message

merci bien

Salut,

Aucune combinaison dans strConv ne repond a ce cas precis, du coup il faut feinter :)

Code:

---

1 2 3

Dim str As String str = "CONVERTIR AUTOMATIQUEMENT LES LIENS DANS LE MESSAGE" str = Ucase(Left(str,1)) & Lcase(mid(str,2))

---

Non le code ne marche pas
mais la phrase pourquoi vous l'avez inclus au code, c'est juste un exemple
le code ne marche pas
j'attends encore la solution
et merci

Bonjour,

nous n'avons aucunement vocation a fournir des solutions toutes faites, simplement a aider les personnes qui souhaitent progresser.

Qu'en est-il du code, pourquoi considerer qu'il ne marche pas ? quel cas a ete teste ?

Quelques efforts sont toujours a fournir pour arriver a atteindre son objectif.

Bonjour.

Access n'est pas Word et il faut donc programmer cette fonction.

quelque chose comme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

public function PremiereMajuscule(prmTexte as string) as string dim result as string   dim t() as string:t=split(prmTexte, " ")   dim i as long: for i=lbound(t) to ubound(t) t(i)=ucase(left(t(i), 1) & lcase(mid(t(1), 2)) next i   result=joint(t(), " ") PremiereMajuscule=result end function

---

Cela ne traite que les mots séparés par des espaces, si tu as d'autres caractères à prendre en compte comme les tirets, alors il faut revoir le code en travaillant 1 caractère à la fois.

A+

non il marche pas
d'abord il faut donner des précisions où on va écrire ce code

je veux que la zone de texte oblige l’écriture de la première lettre en majuscule et tout ce qui suit en minuscule, j'aimerai aussi que l'activation de CAPS de clavier ou non n'aura aucun effet

Bonjour,

Citation:

---

Non le code ne marche pas
mais la phrase pourquoi vous l'avez inclus au code, c'est juste un exemple

---

le code donné par Jean-Philippe André fonctionne très bien et répond exactement à la demande. Il fallait juste l'adapter à votre besoin, c'est à dire remplacer la phrase en dur par votre texte car c'était juste un exemple.
Je comprend que vous ayez des difficultés à vous exprimer en français (sous votre pseudo il y a le drapeau de l'Angola, un pays anglophone) mais dire que "le code ne marche pas" ne suffit pas. Essayez au moins de demander de l'aide si vous ne savez pas où mettre le code et comment le faire fonctionner, ou simplement poster le code que vous avez mis dans votre formulaire cela aurait pu nous permettre de le corriger.

Bien que, quelques fois il est difficile d'écrire le besoin de manière compréhensible, pour ma part, j'ai du mal à accepter ce genre de phrase :

Citation:

---

le code ne marche pas
j'attends encore la solution
et merci

---

Oui j'ai des difficultés à exprimer en français
voila ce que j'ai écrit dans l’événement keypress de la zone de texte concerné

Code:

---

1 2 3 4 5

Private Sub designation_KeyPress(KeyAscii As Integer) Dim str As String str = "designation" str = UCase(Left(str, 1)) & LCase(Mid(str, 2)) End Sub

---

j'attends vos rectifications

Pour en finir avec cette discussion, voici la solution du problème soumis :
1) Code à créer dans un Module et fourni avec la collaboration conjointe de Jean-Philippe André et de marot_r (merci à vous deux) :

Code:

---

1 2 3 4 5

Public Function PremiereMajuscule(prmTexte As String) As String prmTexte = UCase(Left(prmTexte, 1)) & LCase(Mid(prmTexte, 2)) PremiereMajuscule = prmTexte End Function

---

2) Code à mettre sur l'évènement Après MAJ du contrôle (remplacer MonTexte par le vrai nom du contrôle, bien sûr)

Code:

---

1 2 3 4 5 6

Private Sub MonTexte_AfterUpdate()   Me.MonTexte = PremiereMajuscule(Me.MonTexte)   End Sub

---

Avec Keypress, essaie plutôt comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub designation_KeyPress(KeyAscii As Integer)   If Me.designation.SelStart = 0 Then KeyAscii = Asc(UCase(Chr(KeyAscii))) Else KeyAscii = Asc(LCase(Chr(KeyAscii))) End If End Sub

---

oui tee_grandbois ca marche bien
merci pour ta réponse détaillé pour un débutant comme moi*
merci bien
c'est resolu