[VBA] Entier dans textbox (userform)

Résolu/Fermé
Signaler
-
 VBEti -
Bonjour,
je sais que ma question peut parraitre toute bebette mais en ayant essayé plusieurs solutions made in Google, j'en reste toujours au même point.

En effet, j'ai un userform avec des textbox et je veux forcer l'utilisateur à rentrer des entiers. J'ai éssayé avec le script suivant sans succès (érreur):

Private Sub TextBox1_KeyPress(KeyAscii As Integer)
'Mise a part le suppr, le point et le backspace
    If KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete Then
        If Not IsNumeric(Chr(KeyAscii)) Then
            KeyAscii = 0
        End If
    End If
End Sub


Je travail sur MS Excel 2003 avec VBA

en esperant une réponse éfficace de votre part

Cordialement

VBEti

5 réponses

Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
311
Bonjour,

Et si tu remplaçais ton évènement :

Private Sub TextBox1_KeyPress(KeyAscii As Integer)


par celui-ci :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)


Sans modifier le code inscrit dans la procédure...
Tout simplement....
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Merci beaucoup Cousin ;)
Hyper efficace ta technique

Par simple curiosité, cela correspond à quoi cette modification?
Une déclaration?
Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
311
Re-,

Ben, je n'ai fait que reprendre la syntaxe exacte d'une pression clavier lorsque tu es dans un TextBox...

Je devrais te retourner la question, où as-tu déniché ton code?

Cette syntaxe n'est pas du VBA....

Pour t'en convaincre, clique au milieu de ReturnInteger, ou de ByVal, et appuie sur F1, tu auras toute l'aide disponible...

Nota, pour obtenir les syntaxes exactes des différents évènements des objets insérés dans tes Userforms, lorsque tu es dans le code de l'USF, tu cliques sur le menu déroulant de l'objet, en haut, dans le menu déroulant de gauche, et tu choisis l'évènement dans le menu déroulant de droite...
Tu as alors la syntaxe exacte....

Bon courage
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
269
chez silkyroad :-)



https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-E
mais notre ami n'avait pas tout lu!
Voila l'origine du script... je pensais pourtant avoir suivis le bon fil

https://codes-sources.commentcamarche.net/

Merci beaucoup!
C'est bien un forum de VB pourtant... Apres ça fait 2 semaines que g commencé ^^
Messages postés
579
Date d'inscription
mardi 10 août 2010
Statut
Membre
Dernière intervention
11 novembre 2018
311
Re-,

Vi, effectivement, c'est bien un forum VB

Et toi, tu travailles sous VBA

VB : Visual Basic
VBA : Visual Basic for Application

Dans ton cas, le langage appliqué à Excel est du VBA, et non du VB....

Expliquer toutes les différences occulterait une bonne partie, voire la totalité de ma nuit...

Par contre, le lien que t'a fourni Bidouilleu_R concerne bien le VBA, à utiliser sans modération...

Bon apprentissage....
Ah...
Merci beaucoup pour tout!

En bon newbie, bonne aprèm et peut être à une prochaine!