Discussion :

[ramine123]

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

[Jean-Philippe André]

Salut,

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

Code :

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

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

[ramine123]

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

[Jean-Philippe André]

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.

[marot_r]

Bonjour.

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

quelque chose comme :

Code :

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

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+

[ramine123]

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

[tee_grandbois]

Bonjour,

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 :

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

[ramine123]

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 :

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

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

[tee_grandbois]

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 :

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

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 :

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

1
2
3
4
5
6
 
Private Sub MonTexte_AfterUpdate()
 
Me.MonTexte = PremiereMajuscule(Me.MonTexte)
 
End Sub

[tee_grandbois]

Avec Keypress, essaie plutôt comme ceci :

Code :

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

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

[ramine123]

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