TextBox numerique

[maval]

Bonjour,,

J'ai sur un formulaire 33 textbox et 19 sont uniquement numérique. J'ai un code pour empêcher les frappe alpha qui fonctionne très bien et qui est ceci:

    Option Explicit
     
    Const entrees_entieres_permises = "0123456789" & vbCr & vbBack
    Private Sub TextBur_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If InStr(entrees_entieres_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    MsgBox "ce caractere n'est pas permis"
    End If
    End Sub

Ma question est-il possible d'avoir un seul code pour l'ensemble des 19 textbox en sachant qu'il y a des noms comme "TextBur, TextBox1, T5"

Je vous remercie de votre aide

 

[laetitia90]

Re : TextBox numerique

bonjour maval
c'est possible avec une classe pour cela il faudrait voir ton fichier pour pas "bosser" dans le vide

 

[maval]

Re : TextBox numerique

Bonsoir Lætitia,

Je te remercie voila j'ai fait un formulaire qui ressemble au final

@+

 

[laetitia90]

Re : TextBox numerique

re je te fais cela dans 10 minutes

 

[maval]

Re : TextBox numerique

Re,

OK Merci

 

[laetitia90]

Re : TextBox numerique

re

une premiere approche
le nombre de caracteres tu les definis dans proprietees plus simple maxlenght
egalement dans proprietee il y a tag j'ai mis 1 donc a l'initialisation on tiens compte uniquement de ces controls

For Each c In Controls
 If c.Tag <> "" Then
 x = x + 1
 ReDim Preserve cbx(1 To x): Set cbx(x).cbx = c
 End If
 Next

important cela

apres on peut simplifier les exit egalement si cela t'interesse regarderais demain plus le temps

 

[maval]

Re : TextBox numerique

Re,

je te remercie je vais voir sa de plus prés
Bonne soirée

 

[mapomme]

Re : TextBox numerique

Bonsoir maval, laetitia90,

Ma version dans le fichier joint. Elle se base sur les noms des TextBox devant être numériques. La liste de ces noms se trouve dans la constante LesTextBoxNumeric dans le module de UserForm1.

Bonsoir Laetitia90 🙂 . Bien plus rapide que moi 🙁 !

 

[laetitia90]

Re : TextBox numerique

re avant de disparaitre les exits te servent a rien tu peus les enlever
salut l'ami mapomme🙂🙂

 

[maval]

Re : TextBox numerique

Bonjour mapomme,

Je te remercie Nickel et te souhaite une bonne journée.

A bientôt