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