Majuscule

MJ13

XLDnaute Barbatruc

• 6 Juin 2011

• #2

Re : Majuscule

Bonjour Jerome

Avec:

Code:

Ucase

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 6 Juin 2011

• #3

Re : Majuscule

La premiere lettre uniquement SVP.

 

Dernière édition: 6 Juin 2011

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 6 Juin 2011

• #4

Re : Majuscule

Re

UVP 😕😕😕

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 6 Juin 2011

• #5

Re : Majuscule

Code:

application.proper

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 6 Juin 2011

• #6

Re : Majuscule

j'ai fait attention de pas avoir une réponse trop longue!!

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 6 Juin 2011

• #7

Re : Majuscule

bonjour
un = application.username
ucase(left(un),1) & right(un,len(un)-1)
ou Application.Proper(Application.UserName)

arff, salut les copains

 

Dernière édition: 6 Juin 2011

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 6 Juin 2011

• #8

Re : Majuscule

ok, merci beaucoup.
mais il y a une erreur qui n'est pas juste :

j'utilise ce code lancer aprés un Private Sub Worksheet_SelectionChange(ByVal Target As Range):

Code:

   ActiveCell = UCase(Left(ActiveCell, 1)) & Right(ActiveCell, Len(ActiveCell) - 1) ' Majuscule 1er lettre

Par contre j'aimerai avoir automatiquement ce format SVP :

Nom Prénom

et pas nom prénom
ou encore Nom prénom
voir meme nom Prénom
ou pire NOM PRENOM

Sinon, dans le cas extreme : NOM Prénom


Merci.

 

Dernière édition: 14 Juin 2011

Vote positif 0 Vote négatif