TextBox en MAJ

[evelyne]

Bonjour le Forum.
J"ai un USF Avec plusieurs TextBox 1;2;3;4;5;6;
Voici ma Q
Est-il possible d'imposer une police MAJ dans un des TextBox
Bonne journée a toutes et tous
EvelynetFrancois

 

[@Christophe@]

Bonjour Evelyne


Voici le genre de code a mettre pour ton textbox1 par exemple

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Ce qui fais que a chaque pression des touches il transforme en masjuscule le touche pressé

Bonne journée

@Christophe@

 

[@Christophe@]

Petite info supplémentaire

Si mes souvenir sont bon, ne copie pas l'évenement complet, je crois qu'il est different dans excel 97, donc tous dépend de ta version

Pour bien faire, tu modifie l'évenement de ton textbox sur "Keypress" au lieux de "Change" et tu y colle ensuite le code dedans:

KeyAscii = Asc(UCase(Chr(KeyAscii)))


Parce que la ligne suivant n'est pas la même pour toutes les version:
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Bonne journée

@Christophe@

 

[evelyne]

Christophe@
je viens de coller ton code dans l'USF

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

il fonctionne on ne peut pas mieux Wwwwaaaaooouuuhhhh!!!
je suis sur Excel 97
merci beaucoup
je te souhaite une bonne journée
a plus...
EvelynetFrancois

 

[@Christophe@]

Super

Bonne journée

@Christophe@