Pb: Mise en majuscules lettre initiale

D

Denis

Guest

• 12 Janvier 2009

• #2

Re : Pb: Mise en majuscules lettre initiale

Bonjour Taddy et le Forum
peut être comme ceci
Prenom = Application.WorksheetFunction.Proper(Prenom)
Bon courage et à +
Denis

 

Vote positif 0 Vote négatif

T

Taddy

Guest

• 12 Janvier 2009

• #3

Re : Pb: Mise en majuscules lettre initiale

Bonjour Denis,

Tout d'abord, merci pour ton aide. Cependant, en utilisant, comme tu l'as suggeré, Prenom = Application.WorksheetFunction.Proper(Prenom), , tous les caractères du prénom sont en minuscules, alors qu'avec ma syntaxe d'avant, Prenom = Asc(Application.WorksheetFunction.Proper(Chr(Prenom))), ils étaient tous en majuscules.
Je ne comprends plus rien, aurais-tu une autre idée stp??

@++

 

Vote positif 0 Vote négatif

T

Taddy

Guest

• 12 Janvier 2009

• #4

Re : Pb: Mise en majuscules lettre initiale

C'est à nouveau moi !!

Pour plus de compréhension, j'ajoute mon fichier excel. La fonction qui me pose problème est liée au formulaire frmInsert.

Merci d'avance à tous.

 

Pièces jointes

• Test_Formulaire.zip

  38.5 KB · Affichages: 23

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 12 Janvier 2009

• #5

Re : Pb: Mise en majuscules lettre initiale

Bonjour

au lieu de ce code que j'ai supprimé

Code:

Private Sub Text_Prenom_Pers_KeyPress(ByVal Prenom As MSForms.ReturnInteger)

    'Contrôle de la textbox récupérant le prenom
    'Prenom = Asc(UCase(Left(Chr(Prenom), 1)) & LCase(Right(Chr(Prenom), Len(Chr(Prenom)) - 1)))
    'Prenom = Asc(StrConv(Chr(Prenom), vbProperCase))
    Prenom = Application.WorksheetFunction.Proper(Prenom)

End Sub

j'ai mis

Code:

Private Sub Text_Prenom_Pers_Change()
Me.Text_Prenom_Pers = Application.WorksheetFunction.Proper(Me.Text_Prenom_Pers)
End Sub

 

Vote positif 0 Vote négatif

T

Taddy

Guest

• 12 Janvier 2009

• #6

Re : Pb: Mise en majuscules lettre initiale

Merci beaucoup Pascal,

Cette méthode fonctionne parfaitement. C'est exactement ce que je voulais faire. Du coup j'ai remplacé mes fonctions textbox_KeyPress par des fonctions textbox_Change et cela simplifie beaucoup le code.

Merci encore.
@++

 

Vote positif 0 Vote négatif

T

Taddy

Guest

• 12 Janvier 2009

• #7

Re : Pb: Mise en majuscules lettre initiale

Merci beaucoup Pascal. Ta méthode fonctionne parfaitement et c'est exactement le résultat que j'attendais.

Du coup dans mon code, j'ai remplacé mes fonctions "textbox_KeyPress" par des fonctions "textbox_Change" et cela simplifie beaucoup.

Merci encore pour l'aide que Denis et toi m'aviez apportée.

@++, bye.

 

Vote positif 0 Vote négatif