Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic 1ère lettre d'un mot en majuscule

1ère lettre d'un mot en majuscule

13 réponses
Avatar
Congelator
Salut tout le monde,

J'ai encore besoin d'un coup de main. J'arrive à faire qu'à la sortie du
champ, le mot se mette automatiquement en majuscule ou minuscule mais comment
faire pour n'avoir que la 1ère lettre en majuscule (j'ai proposé à
l'utilisateur de presser sur la touche "shift" mais ma réponse ne lui a pas
plu... :-))

Merci d'avance.
--
Céd / Lausanne
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
bouchito
utlise à la sortie de ton champ

TONTEXTE = Ucase(left(trim( TONTEXTE),1) & mid(trim(TONTEXTE),2)

sinon autre solution:
au niveau du keypress, tu peux renvoyer le caractère majuscule de la
lettre tapée au lieu de celle-ci.
Avatar
David
Bonjour Congelator,

Pour avoir la 1ere lettre de mon nom en majuscule voici ce que j'utilise :

StrConv("david", 3)

J'espère que c'est cela que tu cherches.


a+
Jean-Pol DAVID
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
Salut tout le monde,

J'ai encore besoin d'un coup de main. J'arrive à faire qu'à la sortie du
champ, le mot se mette automatiquement en majuscule ou minuscule mais


comment
faire pour n'avoir que la 1ère lettre en majuscule (j'ai proposé à
l'utilisateur de presser sur la touche "shift" mais ma réponse ne lui a


pas
plu... :-))

Merci d'avance.
--
Céd / Lausanne


Avatar
Thierry
Perco, j'utiliserai plutot l'évènement onChange, qui permet de faire un
traitement après que le caractère ait été saisie (permet de prendre en
compte le cas où l'utilisateur sélectionne le texte pour le remplacer et
évite les manipulation du type chr() asc() and co.).

Ici, Text1 est une textbox.

Private Sub Text1_Change()
If (Len(Text1.Text) = 1) Then
Text1.Text = UCase(Text1.Text)
Text1.SelStart = Len(Text1.Text)
End If
End Sub

a écrit dans le message de news:

utlise à la sortie de ton champ

TONTEXTE = Ucase(left(trim( TONTEXTE),1) & mid(trim(TONTEXTE),2)

sinon autre solution:
au niveau du keypress, tu peux renvoyer le caractère majuscule de la
lettre tapée au lieu de celle-ci.
Avatar
X
Bonjour,

1ere lettre d'1 champ en majuscule...

champ = Ucase(mid(champ, 1, 1))

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
Salut tout le monde,

J'ai encore besoin d'un coup de main. J'arrive à faire qu'à la sortie du
champ, le mot se mette automatiquement en majuscule ou minuscule mais
comment
faire pour n'avoir que la 1ère lettre en majuscule (j'ai proposé à
l'utilisateur de presser sur la touche "shift" mais ma réponse ne lui a
pas
plu... :-))

Merci d'avance.
--
Céd / Lausanne


Avatar
Congelator
Salut bouchito,

Merci pour l'info mais malheureusement ça ne foncitonne pas, ça m'affiche
TOUT le texte en majuscule...
--
Céd / Lausanne


"" a écrit :

utlise à la sortie de ton champ

TONTEXTE = Ucase(left(trim( TONTEXTE),1) & mid(trim(TONTEXTE),2)

sinon autre solution:
au niveau du keypress, tu peux renvoyer le caractère majuscule de la
lettre tapée au lieu de celle-ci.




Avatar
Congelator
Salut Thierry,

Merci pour le code, ça fonctionne super bien, même si je ne comprends pas
tout ce qu'il fait... :-)) mais l'important c'est que ça fonctionne.

--
Céd / Lausanne


"Thierry" a écrit :

Perco, j'utiliserai plutot l'évènement onChange, qui permet de faire un
traitement après que le caractère ait été saisie (permet de prendre en
compte le cas où l'utilisateur sélectionne le texte pour le remplacer et
évite les manipulation du type chr() asc() and co.).

Ici, Text1 est une textbox.

Private Sub Text1_Change()
If (Len(Text1.Text) = 1) Then
Text1.Text = UCase(Text1.Text)
Text1.SelStart = Len(Text1.Text)
End If
End Sub

a écrit dans le message de news:

utlise à la sortie de ton champ

TONTEXTE = Ucase(left(trim( TONTEXTE),1) & mid(trim(TONTEXTE),2)

sinon autre solution:
au niveau du keypress, tu peux renvoyer le caractère majuscule de la
lettre tapée au lieu de celle-ci.





Avatar
Congelator
Salut David,

Merci pour le coup de main, ça fonctionne à merveille et c'est même plus
court que ce que proposait Thierry. Le VBA m'épatera toujours et les
connaissances des utilisateurs comme vous aussi... J'ai encore beaucoup à
apprendre.

Encore merci.
--
Céd / Lausanne


"David" a écrit :


Bonjour Congelator,

Pour avoir la 1ere lettre de mon nom en majuscule voici ce que j'utilise :

StrConv("david", 3)

J'espère que c'est cela que tu cherches.


a+
Jean-Pol DAVID
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
> Salut tout le monde,
>
> J'ai encore besoin d'un coup de main. J'arrive à faire qu'à la sortie du
> champ, le mot se mette automatiquement en majuscule ou minuscule mais
comment
> faire pour n'avoir que la 1ère lettre en majuscule (j'ai proposé à
> l'utilisateur de presser sur la touche "shift" mais ma réponse ne lui a
pas
> plu... :-))
>
> Merci d'avance.
> --
> Céd / Lausanne





Avatar
Congelator
Salut X,

Merci pour l'info mais ça ne fonctionne pas comme j'en aurais besoin. En
effet, il m'affiche bien la 1ère lettre en majuscule mais supprime toutes les
autres...?!?!

Merci quand même.
--
Céd / Lausanne


"X" a écrit :

Bonjour,

1ere lettre d'1 champ en majuscule...

champ = Ucase(mid(champ, 1, 1))

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
> Salut tout le monde,
>
> J'ai encore besoin d'un coup de main. J'arrive à faire qu'à la sortie du
> champ, le mot se mette automatiquement en majuscule ou minuscule mais
> comment
> faire pour n'avoir que la 1ère lettre en majuscule (j'ai proposé à
> l'utilisateur de presser sur la touche "shift" mais ma réponse ne lui a
> pas
> plu... :-))
>
> Merci d'avance.
> --
> Céd / Lausanne





Avatar
X
lol, pardon, prends des variable d'échange:

dim e1 as string
dim e2 as string
dim e3 as string
dim i as long
i = len(champ)
e3 = mid(champ, 1, 1)
e1 = Ucase(e3)
e2 = mid(hamp, 2, i-1)
champ = e1 & e2


--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
Salut X,

Merci pour l'info mais ça ne fonctionne pas comme j'en aurais besoin. En
effet, il m'affiche bien la 1ère lettre en majuscule mais supprime toutes
les
autres...?!?!

Merci quand même.
--
Céd / Lausanne


"X" a écrit :

Bonjour,

1ere lettre d'1 champ en majuscule...

champ = Ucase(mid(champ, 1, 1))

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
de
news:
> Salut tout le monde,
>
> J'ai encore besoin d'un coup de main. J'arrive à faire qu'à la sortie
> du
> champ, le mot se mette automatiquement en majuscule ou minuscule mais
> comment
> faire pour n'avoir que la 1ère lettre en majuscule (j'ai proposé à
> l'utilisateur de presser sur la touche "shift" mais ma réponse ne lui a
> pas
> plu... :-))
>
> Merci d'avance.
> --
> Céd / Lausanne







Avatar
X
Salut Congelator,

Je regardais un peu mieux ce que tu évoques...
Dans l'absolu la chaîne peut arriver mélangée (minuscules et majuscules), il
y a aussi le cas des nom composés, et des particules, ce qui implique un
vrai traitement de la chaîne si tu veux être exhaustif...
Mettre en minuscules
Mettre en majuscule la première ou la première après "de " ou "la ", ou "de
la ", et après "-", etc...

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news:
Salut X,

Merci pour l'info mais ça ne fonctionne pas comme j'en aurais besoin. En
effet, il m'affiche bien la 1ère lettre en majuscule mais supprime toutes
les
autres...?!?!

Merci quand même.
--
Céd / Lausanne


"X" a écrit :

Bonjour,

1ere lettre d'1 champ en majuscule...

champ = Ucase(mid(champ, 1, 1))

--
Merci beaucoup, au revoir et à bientôt :o)
------
Site logiciels
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
Site perso
http://irolog.free.fr/joe/index.htm
Principe d'utilisation des news Groups
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
------------------------------------------------------------------------------------
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message
de
news:
> Salut tout le monde,
>
> J'ai encore besoin d'un coup de main. J'arrive à faire qu'à la sortie
> du
> champ, le mot se mette automatiquement en majuscule ou minuscule mais
> comment
> faire pour n'avoir que la 1ère lettre en majuscule (j'ai proposé à
> l'utilisateur de presser sur la touche "shift" mais ma réponse ne lui a
> pas
> plu... :-))
>
> Merci d'avance.
> --
> Céd / Lausanne







1 2