Inputbox...... premiere lettre en maj

J

jp14

XLDnaute Barbatruc

• 26 Février 2006

• #2

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)

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 26 Février 2006

• #3

Bonsoir le forum
Bonsoir Evelynetfrancois, bonsoir jp14

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

Code:

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

Bonne fin de dimanche à toutes & àtous

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

Guest

• 26 Février 2006

• #4

merci
Eric c et jp14

Application.Proper(REP2)me va comme un gant

merci pour tout
bonne soirée
E et F

 

Vote positif 0 Vote négatif

M

Manu13

XLDnaute Occasionnel

• 27 Février 2006

• #5

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

Code:

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

bonne nuit
@+Manu

 

Vote positif 0 Vote négatif

M

Manu13

XLDnaute Occasionnel

• 27 Février 2006

• #6

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

Manu

 

Vote positif 0 Vote négatif