XL 2010 [Résolu] Multiple code pour KeyPress

jmh1 · 28 Février 2017

Bonjour à tous,

J'ai un Userform avec une trentaine de TextBox qui ne doivent autoriser que de la saisie numérique.

J'ai trouvé le code pour autoriser uniquement cette saisie que j'ai copié pour chaque TextBox à l'aide de TextBox_Keypress.

N'y a t-il pas moyen pour chaque TextBox d'appeler une macro qui vérifie ma saisie au lieu de copier mon code pour chaque TextBox ?

J'ai essayé mais apparemment cela ne marche pas, quand je fais de la saisie dans un TextBox, mon code est bien lancé mais rien ne se passe même si je saisi des lettres.

Je mets un Fichier Exemple en P.J.

Merci pour votre aide

cathodique · 28 Février 2017

Salut,

Il y a les modules de classes mais c'est au dessus de mes compétences.

Peut-être que ton bonheur est ICI

mécano41 · 28 Février 2017

Bonjour,

Perso. j'utilise (juste un peu) les modules de classe...

(comme indiqué dans le code : il faut repérer tous les textbox concernés par un même n° de Tag - ici 1)

Cordialement

Si... · 28 Février 2017

Bonjour,

un autre exemple ...

Au revoir

laetitia90 · 28 Février 2017

bonjour jmh1,Cathodique ,Mecano ,Si
pour kepress j'avais cela aus SI .... avec le code de notre ami SI

VB:

Private Sub tx_KeyPress(ByVal K As MSForms.ReturnInteger)
If Not IsNumeric(Mid(tx_, 1, SelStart) & Chr(K) & Mid(tx_, SelStart + 1)) Then K = 0
End Sub

jmh1 · 28 Février 2017

Bonsoir à tous.

Merci pour votre aide. Je vais retenir la solution de Mecano41 qui permet de traiter plusieurs cas en même temps.

XL 2010 [Résolu] Multiple code pour KeyPress

jmh1

XLDnaute Occasionnel

Pièces jointes

cathodique

XLDnaute Barbatruc

mécano41

XLDnaute Accro

Pièces jointes

Si...

XLDnaute Barbatruc

Pièces jointes

laetitia90

XLDnaute Barbatruc

jmh1

XLDnaute Occasionnel

Discussions similaires