Majuscule par défaut

[Ouin-Ouin]

Bonjour à tous et excellent week-end

comment faire dans un usf que la lettre ou le mot taper dans une cellul de l'usf soit automatiquement en majuscule en partant à la prochaine cellule par la touche tab

merci de votre aide
ouin-ouin

 

[Ouin-Ouin]

j'ai oublié dans la même demande comment faire pour avoir maximum ni plus ni moin de huite (8) chiffre dans une cellule de l'usf
merci
ouin-ouin

 

[myDearFriend]

Salut Ouin-Ouin, le Forum.

Quand tu dis une "cellule" dans le usf, je suppose que tu veux dire un TextBox.

Si c'est le cas, les codes ci-dessous sont à insérer dans le module de code du USF.

1/ Pour mettre automatiquement le texte en majuscule dans le TextBox1 lorsque celui-ci perd le focus (utilisation de l'évènement TextBox_Exit):

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = UCase(TextBox1.Text)
End Sub

2/ Pour obtenir 8 caractères maximum dans un TextBox2 :

Private Sub UserForm_Initialize()
TextBox2.MaxLength = 8
End Sub

2/ Pour n'autoriser que des caractères numériques dans le TextBox2 :

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 48, Is > 57 'différent 0 à 9
KeyAscii = 0
End Select
End Sub

Cordialement.
Didier_mDF

 

[Temjeh]

Bonsoir le forum

Je ne sais pas si c'est possible pour ce code:


aaaaa bbbbbb= Aaaaa Bbbbb en quittant au lieu de aaaaa=AAAAAA

Merci beaucoup

Temjeh

 

[myDearFriend]

Bonsoir Temjeh,

Pour tranformer "aaaaa bbbbb" en "Aaaaaa Bbbbb" à la sortie du Textbox1, le plus simple est d'utiliser le code suivant :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Application.WorksheetFunction.Proper(TextBox1.Text)
End Sub


Cordialement.
Didier_mDF

 

[Temjeh]

Merci Didier c'est ca

Temjeh
A+

 

[Ouin-Ouin]

bonjour tout le forume et bon dimanche

bonjour Didier_mDF merci beaucoup pour le code

à+
ouin-ouin