OVH Cloud OVH Cloud

inscrire la 1ère lettre d'une valeur en majuscule

5 réponses
Avatar
Salut,

J'ai une liste d=E9roulante qui pointe sur une colonne d'une=20
feuille.=20
Dans cette colonne, j'ai inscrit des mots en minuscule.
Lorsque je clic sur mon bouton ok, via VBA le nom choisi=20
va se mettre dans certaines cellules de mes feuilles.=20

Seulement voici mon probl=E8me, sur 2 feuilles il faut que=20
la premi=E8re lettre du mot vienne en majuscule, =E9tant donn=E9=20
que c'est un titre. (Alors que dans les autres feuilles,=20
le mot est dans une phrase, donc pas besoin de majuscule)

Il me semble qu'il y a un fonction du style "Ucase" ou un=20
truc comme =E7a... mais je ne m'en souviens plus.

Merci pour votre aide et bon week-end =E0 toutes et tous...

5 réponses

Avatar
Pierre CFI
boonjour
... = Ucase(Left(Me.Liste,1)) & Lcase(Mid(Me.Liste,2))

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

a écrit dans le message de news:
000001c36eff$ee668d80$
Salut,

J'ai une liste déroulante qui pointe sur une colonne d'une
feuille.
Dans cette colonne, j'ai inscrit des mots en minuscule.
Lorsque je clic sur mon bouton ok, via VBA le nom choisi
va se mettre dans certaines cellules de mes feuilles.

Seulement voici mon problème, sur 2 feuilles il faut que
la première lettre du mot vienne en majuscule, étant donné
que c'est un titre. (Alors que dans les autres feuilles,
le mot est dans une phrase, donc pas besoin de majuscule)

Il me semble qu'il y a un fonction du style "Ucase" ou un
truc comme ça... mais je ne m'en souviens plus.

Merci pour votre aide et bon week-end à toutes et tous...
Avatar
NadaSurf
Voici ce que j'ai mis...

dim VarDep as string

VarDep = cboChoixDep.value

Range("F15").Activate
ActiveCell.Value = UCase(Left(VarDep, 1))


Excel ne m'inscrit que la première lettre du mot. ( bon...
en majuscule certes, mais ou est parti le reste du mot)

-----Message d'origine-----
boonjour
.... = Ucase(Left(Me.Liste,1)) & Lcase(Mid(Me.Liste,2))

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

a écrit dans le message de news:
000001c36eff$ee668d80$
Salut,

J'ai une liste déroulante qui pointe sur une colonne d'une
feuille.
Dans cette colonne, j'ai inscrit des mots en minuscule.
Lorsque je clic sur mon bouton ok, via VBA le nom choisi
va se mettre dans certaines cellules de mes feuilles.

Seulement voici mon problème, sur 2 feuilles il faut que
la première lettre du mot vienne en majuscule, étant donné
que c'est un titre. (Alors que dans les autres feuilles,
le mot est dans une phrase, donc pas besoin de majuscule)

Il me semble qu'il y a un fonction du style "Ucase" ou un
truc comme ça... mais je ne m'en souviens plus.

Merci pour votre aide et bon week-end à toutes et tous...


.



Avatar
Pierre CFI
.../...
manque un bout regarde mon code
Ucase(Left(VarDep ,1)) & Lcase(Mid(VarDep ,2))
--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"NadaSurf" a écrit dans le message de news:
07f001c36f09$2b5d7600$
Voici ce que j'ai mis...

dim VarDep as string

VarDep = cboChoixDep.value

Range("F15").Activate
ActiveCell.Value = UCase(Left(VarDep, 1))


Excel ne m'inscrit que la première lettre du mot. ( bon...
en majuscule certes, mais ou est parti le reste du mot)

-----Message d'origine-----
boonjour
.... = Ucase(Left(Me.Liste,1)) & Lcase(Mid(Me.Liste,2))

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

a écrit dans le message de news:
000001c36eff$ee668d80$
Salut,

J'ai une liste déroulante qui pointe sur une colonne d'une
feuille.
Dans cette colonne, j'ai inscrit des mots en minuscule.
Lorsque je clic sur mon bouton ok, via VBA le nom choisi
va se mettre dans certaines cellules de mes feuilles.

Seulement voici mon problème, sur 2 feuilles il faut que
la première lettre du mot vienne en majuscule, étant donné
que c'est un titre. (Alors que dans les autres feuilles,
le mot est dans une phrase, donc pas besoin de majuscule)

Il me semble qu'il y a un fonction du style "Ucase" ou un
truc comme ça... mais je ne m'en souviens plus.

Merci pour votre aide et bon week-end à toutes et tous...


.



Avatar
Philippe.R
Bonjour,

En adaptant ainsi, tu devrais trouver le reste :

ActiveCell.Value = UCase(Left(VarDep, 1)) _
& Right(VarDep,Len(VarDep)- 1)

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"NadaSurf" a écrit dans le message de news:07f001c36f09$2b5d7600$
Voici ce que j'ai mis...

dim VarDep as string

VarDep = cboChoixDep.value

Range("F15").Activate
ActiveCell.Value = UCase(Left(VarDep, 1))


Excel ne m'inscrit que la première lettre du mot. ( bon...
en majuscule certes, mais ou est parti le reste du mot)

-----Message d'origine-----
boonjour
.... = Ucase(Left(Me.Liste,1)) & Lcase(Mid(Me.Liste,2))

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

a écrit dans le message de news:
000001c36eff$ee668d80$
Salut,

J'ai une liste déroulante qui pointe sur une colonne d'une
feuille.
Dans cette colonne, j'ai inscrit des mots en minuscule.
Lorsque je clic sur mon bouton ok, via VBA le nom choisi
va se mettre dans certaines cellules de mes feuilles.

Seulement voici mon problème, sur 2 feuilles il faut que
la première lettre du mot vienne en majuscule, étant donné
que c'est un titre. (Alors que dans les autres feuilles,
le mot est dans une phrase, donc pas besoin de majuscule)

Il me semble qu'il y a un fonction du style "Ucase" ou un
truc comme ça... mais je ne m'en souviens plus.

Merci pour votre aide et bon week-end à toutes et tous...


.



Avatar
NadaSurf
Nickel encore merci pour les infos...



-----Message d'origine-----
..../...
manque un bout regarde mon code
Ucase(Left(VarDep ,1)) & Lcase(Mid(VarDep ,2))
--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

"NadaSurf" a écrit dans le message
de news:

07f001c36f09$2b5d7600$
Voici ce que j'ai mis...

dim VarDep as string

VarDep = cboChoixDep.value

Range("F15").Activate
ActiveCell.Value = UCase(Left(VarDep, 1))


Excel ne m'inscrit que la première lettre du mot. (
bon...

en majuscule certes, mais ou est parti le reste du mot)

-----Message d'origine-----
boonjour
.... = Ucase(Left(Me.Liste,1)) & Lcase(Mid(Me.Liste,2))

--
Pierre CFI
Microsoft MVP Access

Pour mieux utiliser microsoft.public.fr.access...
http://users.skynet.be/mpfa/charte.htm

a écrit dans le message de news:
000001c36eff$ee668d80$
Salut,

J'ai une liste déroulante qui pointe sur une colonne
d'une


feuille.
Dans cette colonne, j'ai inscrit des mots en minuscule.
Lorsque je clic sur mon bouton ok, via VBA le nom choisi
va se mettre dans certaines cellules de mes feuilles.

Seulement voici mon problème, sur 2 feuilles il faut que
la première lettre du mot vienne en majuscule, étant
donné


que c'est un titre. (Alors que dans les autres feuilles,
le mot est dans une phrase, donc pas besoin de
majuscule)



Il me semble qu'il y a un fonction du style "Ucase" ou
un


truc comme ça... mais je ne m'en souviens plus.

Merci pour votre aide et bon week-end à toutes et
tous...




.




.