Autoriser seulement du numérique dans plusieurs textbox

**Coco39** · 20/03/2013, 20h26

Bonsoir à tous,

Depuis plusieurs jours je n'arrive pas à appliquer ce code "qui empêche la saisie des lettres" pour plusieurs autres textbox que comporte mon userform. Pour l'instant je suis obliger d'utiliser ce code pour chaque textbox ce qui rend le programme tres long (j'ai environ 80 textbox). Merci d'avance à ceux qui pourront m'aiguiller j'ai vraiment du mal.

Ci dessous le programme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
         KeyAscii = 0
     End If
 End Sub

Merci d'avance

**Michel_M** · 21/03/2013, 11h26

Bonjour,

C'est ton 1° message: Ta question a sa réponse ici
http://silkyroad.developpez.com/VBA/...serForm/#LII-E

sur ce site DVP, tu as à ta disposition une FAQ et des tutos précieux quelque soit le niveau de chacun....

bonne découverte

**patricktoulon** · 21/03/2013, 19h35

bonjour

En une seule ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
if not keyascii like "[0-9]" then keyascii=0
end sub

Maintenant soit tu met ca a chaques textboxs dont le parametre est requis
soit tu fait une classe pour t'orienter regarde ma derniere contribution sur le sujet d'une classe pour formater dynamiquement un textbox pour une date ou un numero de telephone

au plaisir

Re
C'est ICI!!!!

au plaisir

**Coco39** · 24/03/2013, 02h03

Merci à vous,

Je vais regarder tout cela de plus près. En revanche pour les modules de classe j'avoue ne pas bien maitriser du tout, mais je vais tenter.

En tout cas merci et je vous retiens au courant.