[VBA] Entier dans textbox (userform)

Résolu/Fermé
VBEti - 5 oct. 2010 à 13:07
 VBEti - 5 oct. 2010 à 15:37
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

cousinhub29 Messages postés 901 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 17 juin 2024 330
5 oct. 2010 à 13:18
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 beaucoup Cousin ;)
Hyper efficace ta technique

Par simple curiosité, cela correspond à quoi cette modification?
0
Une déclaration?
0
cousinhub29 Messages postés 901 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 17 juin 2024 330
5 oct. 2010 à 13:56
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
0
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 291
5 oct. 2010 à 14:08
chez silkyroad :-)



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

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

Merci beaucoup!
0
C'est bien un forum de VB pourtant... Apres ça fait 2 semaines que g commencé ^^
0
cousinhub29 Messages postés 901 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 17 juin 2024 330
5 oct. 2010 à 14:44
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....
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Ah...
Merci beaucoup pour tout!

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