Mise en format du prénom

[jpcwe]

Bonjour,

J'essaye d'imposer un format suivant : Aaaaa
à la saisie d'un prénom dans un formulaire, j'ai essayé avec Left mais ça marche pas, dois je passer par une boucle du style:

i=1

For i=1 To 20
if i = 1 then prénom=Ucase(left (saisie,i))
else prenom=Lcase(left(saisie,i))

je suis bloqué, merci

 

[Tibo]

Salut Jp,

Un début de piste :

En formules, il existe la fonction NOMPROPRE.

J'imagine que l'on doit trouver l'équivalent en VBA.

Mais je suis un piètre vbaïste...


Bonne journée

@+

 

[PascalXLD]

Bonjour

cela donnerait à peu près ceci

prenom=Application.WorksheetFunction.Proper(saisie)

Bon courage

PS : en passant c'est bien la fonction NOMPROPRE dont parle Tibo

Message édité par: Pascal76, à: 22/02/2006 08:23

 

[CBernardT]

Bonjour à tous,


Dans une texbox pour mettre le prénom avec la première lettre en majuscule, j'utilise le code suivant en sortie de la texbox :

Private Sub Tbprénom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(Tbprénom) And Len(Tbprénom) > 1 Then Tbprénom = Application.Proper(Tbprénom): Exit Sub
Tbprénom = ''
End Sub

Cordialement

Bernard

 

[jpcwe]

Merci beau coup ça fonctionne nickel,

voici le code:

Private sub prenom_miseenforme()
Dim Saisieprenom as string

Saisieprenom=prenom.Value ' où prenom.Value est la saisie d'une textbox

Saisiprenom=Application.WorksheetFunction.Proper(Saisieprenom)

prenomreel.Value=Saisieprenom ' affichage en temps réel dans textbox lors de la saisie

end sub

encore merci pour les réponses