Discussion :

[moilou2]

Bonjour, est il possible de forcer la mise en forme d'un champ text dans un UserForm.

En fait les utilisateurs écrivent de temps en temps en majscule dans ce champs, mais je ne trouve vraiment pas sa estétique!!!

Ma question est donc est-il possible pour cette TextBox de forcer l'utilisation des minuscules, sauf en début de chaque phrase ou la majuscule est bien sur présente!

Merci

[ouskel'n'or]

Je ne me souviens pas si on a une instruction qui fait ça dans Excel mais tu peux toujours écrire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private sub TextBox1_Exit()'Ex : TextBox1 = "maChin"
TextBox1 = Ucase(left(TextBox1 ,1)) & lcase(Mid(TextBox1 , 2, Len(TextBox1)-1))

Bonne journée

[moilou2]

J'ai mis sa:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Descriptif_change()
 
Descriptif = UCase(Left(Descriptif, 1)) & LCase(Mid(Descriptif, 2, Len(Descriptif) - 1))
 
End Sub

Si je laisse

Private Sub Descriptif_Exit

J'ai un message d'erreur du type:

Erreur de compilation
La déclaration de la procédure ne correspond pas à la description de l'évenement ou de la procedure de même nom

Et si je laisse le

Private Sub Descriptif_change()

Sa me met bien la première lettre en majuscule et le reste en minuscule, mais si j'éfface tout dans ma zone sa me met:

Argument ou appel de procédure incorrect

Comment faire aussi si je veux démarrer un nouvelle phrase, c'est à dire que si je met un point je peut réataquer avec une majuscule?

Merci

[ucfoutu]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Text1_KeyPress(KeyAscii As Integer)
 If Len(Text1.Text) = 0 Then
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
 Else
   KeyAscii = Asc(LCase(Chr(KeyAscii)))
 End If
End Sub

Mais intéresse-toi également (just in case ...) à StrConv et vbpropercase

[moilou2]

Merci mais j'ai le même type d'erreur que précédement:

Erreur de compilation
La déclaration de la procédure ne correspond pas à la description de l'évenement ou de la procedure de même nom

Est ce qu'il ne faut pas que j'active une référence auparavant ou autre je ne sais pas?

Le code que j'ai mis est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Descriptif_KeyPress(KeyAscii As Integer)
 If Len(Text1.Text) = 0 Then
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
 Else
   KeyAscii = Asc(LCase(Chr(KeyAscii)))
 End If

Merci

[ucfoutu]

Déjà :
Text1 était là pour exemple (et tu l'as purement et simplement recopié !!!)
Si descriptif est le nom de ta textbox, c'est lui, qu'il faut mettre ...
(Je me demande d'ailleurs si ta textbox s'appelle bien descriptif...)

[tirex28]

Bonjour,

Si Descriptif est un TextBox son évènement KeyPress s'écrit comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Descriptif_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
End Sub

Cordialement,

Tirex28/

[ouskel'n'or]

Comme je n'avais pas testé, j'avais mis Private sub TextBox1_Exit() et c'est pas ça
Tu ne mets rien dans l'événement change et tu mets ça dans l'événement exit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Trim(Me.TextBox1) = "" Then Exit Sub
    TextBox1 = UCase(Left(TextBox1, 1)) & LCase(Mid(TextBox1, 2, Len(TextBox1) - 1))
End Sub