majuscules et minuscules

JC de Lorient

XLDnaute Impliqué

• 1 Mars 2006

• #2

salut

essaye d'adapter cette fonction :

Sheets('Info').Range('A' & b) = Application.Proper(a)

içi a est le résultat d'un input box

JC

 

Vote positif 0 Vote négatif

M

Manu13

XLDnaute Occasionnel

• 1 Mars 2006

• #3

Bonjour jc de lorient et agnés

a la place de ucase du met application.proper
ce qui donne
TBoxpreNom.Value = application.proper(TBoxpreNom.Value)

voilà
bonne nuit à tous

Manu

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 1 Mars 2006

• #4

Bonsoir Agnes, JC de Lorient, bonsoir le forum,

je te propose ceci:

TBoxpreNom.Value = UCase(Left(TBoxpreNom.Value, 1)) & LCase(Mid(TBoxpreNom.Value, 2))

Cliquez pour agrandir...

Édition :
Bonsoir Manu on s'est croisés.
Agnès oublie ma proposition, celle de Manu et de JC est bien meilleure.
JC, désolé mais j'avais pas compris ce que tu voulais dire au début...

Message édité par: Robert, à: 01/03/2006 23:08

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 2 Mars 2006

• #5

Bonjour Agnes, JC de Lorient,Robert, le forum,

C'est pas de moi, mais suite à un message sur le même sujet et je le troue bien pratique.

Bonne journée à tous,

A+ PAD

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 2 Mars 2006

• #6

Re Re ... Tous
Je suis têtu! B)

Bon j'ai bien regardé le tuto donc... [file name=MajMin.zip size=9042]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MajMin.zip[/file]

 

Pièces jointes

• MajMin.zip

  8.8 KB · Affichages: 33
• MajMin.zip

  8.8 KB · Affichages: 30
• MajMin.zip

  8.8 KB · Affichages: 33

Vote positif 0 Vote négatif

A

agnes

Guest

• 2 Mars 2006

• #7

merci à tous

la solution de manu me semble

la plus simple et la meilleure

je ne m'en prive donc pas

merci à tous qd meme

 

Vote positif 0 Vote négatif