Bonjour à tous
Dans un texbox. Peut-on n'autoriser que les touches numérique
du clavier. Interdir toutes lettres ", " ou " ."
Sinon la macro plante sur des calcules
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pounet95
Bonjour, C'est possible en utilisant l'évènement KeyPress du textbox Voici le bout de macro que j'ai posté le 20/12 sur ce forum
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
-- 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...)
"Christian" a écrit dans le message de news:
Bonjour à tous Dans un texbox. Peut-on n'autoriser que les touches numérique du clavier. Interdir toutes lettres ", " ou " ." Sinon la macro plante sur des calcules
Bonne journée et joyeux réveillon Christian
Bonjour,
C'est possible en utilisant l'évènement KeyPress du textbox
Voici le bout de macro que j'ai posté le 20/12 sur ce forum
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
--
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...)
"Christian" <Christian@discussions.microsoft.com> a écrit dans le message de
news: 2A722224-107B-4547-A0A1-EEA0324ED71C@microsoft.com...
Bonjour à tous
Dans un texbox. Peut-on n'autoriser que les touches numérique
du clavier. Interdir toutes lettres ", " ou " ."
Sinon la macro plante sur des calcules
Bonjour, C'est possible en utilisant l'évènement KeyPress du textbox Voici le bout de macro que j'ai posté le 20/12 sur ce forum
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
-- 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...)
"Christian" a écrit dans le message de news:
Bonjour à tous Dans un texbox. Peut-on n'autoriser que les touches numérique du clavier. Interdir toutes lettres ", " ou " ." Sinon la macro plante sur des calcules
