Inputbox...... premiere lettre en maj

[Evelynetfrancois]

Bonjour a tous


voila
j ai deux inputbox dans une macro
la premiere 'REP' force les majuscules
avec Ucase
la seconde les minuscules avec
Lcase

REP = UCase(InputBox('...(Nom).......
puis
REP2 = LCase(InputBox('...(Prénom).......


est-t'il possible de force la premiere lettre en maj puis les autres en min pour la REP2
ce qui me donnerais 'Francois et non plus francois!!'

merci pour toutes vos soluces
bonne soirée
E et F

 

[jp14]

Bonsoir


Une solution

La fonction Mid(string, start[, length])permet d'extraire des caractères dans un texte.
lon = len (texte)
texte1= MID(texte,2,lon-1)
texte2= MID(texte,1,1)
texte = ucase(texte2) & lcase(texte1)

 

[Eric C]

Bonsoir le forum
Bonsoir Evelynetfrancois, bonsoir jp14

Comme j'étais en train de bidouiller une soluce, je la met en ligne.

REP2 = InputBox('votre saisie de prénom')
Range('A1') = Application.Proper(REP2)

Bonne fin de dimanche à toutes & àtous

 

[Evelynetfrancois]

merci
Eric c et jp14

Application.Proper(REP2)me va comme un gant

merci pour tout
bonne soirée
E et F

 

[Manu13]

Bonsoir à tous
à la solution de Eric C qui est très bien, on peut faire plus court

Range('A1') = Application.Proper(InputBox('votre saisie de prénom'))

bonne nuit
@+Manu

 

[Manu13]

ah non n'importe quoi, j'avais mal vu le premier post autant pour moi.......

Manu