XL 2010 [Résolu] Multiple code pour KeyPress

[jmh1]

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]

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]

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...]

Bonjour,

un autre exemple ...

Au revoir

 

[laetitia90]

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

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]

Bonsoir à tous.

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