comment faire pour que lorsque je rentre des lettres dans une textBox,
celles-ci soient directement converties en Majuscule avant d'etre affichées
dans ma textBox ?
je suppose qu'il faut utiliser UCase mais je n'arrive pas a recuperer la
lettre et à la retransmettre...
Private Sub TextBox1_Change() TextBox1 = UCase(TextBox1) End Sub
pour un TextBox nommé TextBox1
John
"Emcy" a écrit dans le message de news:
bonjours,
comment faire pour que lorsque je rentre des lettres dans une textBox, celles-ci soient directement converties en Majuscule avant d'etre affichées
dans ma textBox ? je suppose qu'il faut utiliser UCase mais je n'arrive pas a recuperer la lettre et à la retransmettre...
Pounet95
Bonsoir,
Si c'est avant qu'elles ne soient affichées, il faut utiliser l'évènement KeyPress du Textbox et travailler avec les codes ASCII des caractères.
Ainsi si l'utilisateur saisit la lettre a qui a le code ASCII il faut le changer en qui affichera A.
dans le usf, code pour le txtbox
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 91 'OK, on laisse car A à Z Case 97 To 122 KeyAscii = Asc(UCase(Chr(KeyAscii))) case else KeyAscii=Chr(8) 'efface si caractère autre End Select End Sub
Bonne soirée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Emcy" a écrit dans le message de news:
bonjours,
comment faire pour que lorsque je rentre des lettres dans une textBox, celles-ci soient directement converties en Majuscule avant d'etre affichées dans ma textBox ? je suppose qu'il faut utiliser UCase mais je n'arrive pas a recuperer la lettre et à la retransmettre...
Bonsoir,
Si c'est avant qu'elles ne soient affichées, il faut utiliser l'évènement
KeyPress du Textbox
et travailler avec les codes ASCII des caractères.
Ainsi si l'utilisateur saisit la lettre a qui a le code ASCII il faut le
changer en
qui affichera A.
dans le usf, code pour le txtbox
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 65 To 91
'OK, on laisse car A à Z
Case 97 To 122
KeyAscii = Asc(UCase(Chr(KeyAscii)))
case else
KeyAscii=Chr(8) 'efface si caractère autre
End Select
End Sub
Bonne soirée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"Emcy" <toto@bla.com> a écrit dans le message de news:
ep8uVpXBGHA.3580@TK2MSFTNGP11.phx.gbl...
bonjours,
comment faire pour que lorsque je rentre des lettres dans une textBox,
celles-ci soient directement converties en Majuscule avant d'etre
affichées dans ma textBox ?
je suppose qu'il faut utiliser UCase mais je n'arrive pas a recuperer la
lettre et à la retransmettre...
Si c'est avant qu'elles ne soient affichées, il faut utiliser l'évènement KeyPress du Textbox et travailler avec les codes ASCII des caractères.
Ainsi si l'utilisateur saisit la lettre a qui a le code ASCII il faut le changer en qui affichera A.
dans le usf, code pour le txtbox
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 91 'OK, on laisse car A à Z Case 97 To 122 KeyAscii = Asc(UCase(Chr(KeyAscii))) case else KeyAscii=Chr(8) 'efface si caractère autre End Select End Sub
Bonne soirée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Emcy" a écrit dans le message de news:
bonjours,
comment faire pour que lorsque je rentre des lettres dans une textBox, celles-ci soient directement converties en Majuscule avant d'etre affichées dans ma textBox ? je suppose qu'il faut utiliser UCase mais je n'arrive pas a recuperer la lettre et à la retransmettre...
Emcy
merci
"Pounet95" a écrit dans le message de news:
Bonsoir,
Si c'est avant qu'elles ne soient affichées, il faut utiliser l'évènement KeyPress du Textbox et travailler avec les codes ASCII des caractères.
Ainsi si l'utilisateur saisit la lettre a qui a le code ASCII il faut le changer en qui affichera A.
dans le usf, code pour le txtbox
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 91 'OK, on laisse car A à Z Case 97 To 122 KeyAscii = Asc(UCase(Chr(KeyAscii))) case else KeyAscii=Chr(8) 'efface si caractère autre End Select End Sub
Bonne soirée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Emcy" a écrit dans le message de news:
bonjours,
comment faire pour que lorsque je rentre des lettres dans une textBox, celles-ci soient directement converties en Majuscule avant d'etre affichées dans ma textBox ? je suppose qu'il faut utiliser UCase mais je n'arrive pas a recuperer la lettre et à la retransmettre...
merci
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de news:
usXjBEYBGHA.3400@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Si c'est avant qu'elles ne soient affichées, il faut utiliser l'évènement
KeyPress du Textbox
et travailler avec les codes ASCII des caractères.
Ainsi si l'utilisateur saisit la lettre a qui a le code ASCII il faut
le changer en
qui affichera A.
dans le usf, code pour le txtbox
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 65 To 91
'OK, on laisse car A à Z
Case 97 To 122
KeyAscii = Asc(UCase(Chr(KeyAscii)))
case else
KeyAscii=Chr(8) 'efface si caractère autre
End Select
End Sub
Bonne soirée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)
"Emcy" <toto@bla.com> a écrit dans le message de news:
ep8uVpXBGHA.3580@TK2MSFTNGP11.phx.gbl...
bonjours,
comment faire pour que lorsque je rentre des lettres dans une textBox,
celles-ci soient directement converties en Majuscule avant d'etre
affichées dans ma textBox ?
je suppose qu'il faut utiliser UCase mais je n'arrive pas a recuperer la
lettre et à la retransmettre...
Si c'est avant qu'elles ne soient affichées, il faut utiliser l'évènement KeyPress du Textbox et travailler avec les codes ASCII des caractères.
Ainsi si l'utilisateur saisit la lettre a qui a le code ASCII il faut le changer en qui affichera A.
dans le usf, code pour le txtbox
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 65 To 91 'OK, on laisse car A à Z Case 97 To 122 KeyAscii = Asc(UCase(Chr(KeyAscii))) case else KeyAscii=Chr(8) 'efface si caractère autre End Select End Sub
Bonne soirée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/ Conseillé : http://dj.joss.free.fr/netiquet.htm (charte, nétiquette, conseils, abréviations, souriettes...) http://www.excelabo.net/mpfe/connexion.php (connexion, conseils...)
"Emcy" a écrit dans le message de news:
bonjours,
comment faire pour que lorsque je rentre des lettres dans une textBox, celles-ci soient directement converties en Majuscule avant d'etre affichées dans ma textBox ? je suppose qu'il faut utiliser UCase mais je n'arrive pas a recuperer la lettre et à la retransmettre...
