Appel d'une procedure dans un évènement keypress

[lecaire]

Bonjour Tous,
je mets sous bout de code dans l'évènement keypress d'une zone de texte afin de n'autoriser que l saisie des valeurs numeriques.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

	
Code  :
        
	
123456
Private Sub zdt1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) Then
   KeyAscii = 0
End If
 
End Sub

cela marche

Aussi je mets ce code dans une fonction appélé chiffres afin de pouvoir l'appéler dans les différentes zone de texte de mon formulaires

Code :

1
2
3
4
5
Public Sub chiffres()
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) Then
    KeyAscii = 0
End If
End Sub

mais la quand j'appele cette fonction dans une zone de texte il ne fonctionne pas.

Code :

1
2
3
4
Private Sub zdt1_KeyPress(KeyAscii As Integer)
chiffres
 
End Sub

que manque t'il à ma fonction pour qu'elle puisse être correctement appélé dans un évènement keypress.

Bien Merci

[FreeAccess]

Bonjour,

Si tu compile ton code VBA, tu auras tout de suite la réponse à ta question....

Tu crées une Sub public (..et non une Fonction !!), dans laquelle tu utilise KeyAscii ......qui est censé représenter quoi ...

En fonction de ton application, tu peux définir cette limitation de façon globale pour le formulaire

Code :

1
2
3
4
5
Private Sub Form_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) Then
    KeyAscii = 0
End If
End Sub

.....bien sur, tu adapte ce code si tu ne souhaite "impacter" que des champs particuliers de ton formulaire..

[lecaire]

Merci bien pour votre réponse, ce code fonctionne sur toutes les zones de saisies de mon formulaire

Code :

1
2
3
4
5
Private Sub Form_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) Then
    KeyAscii = 0
End If
End Sub

Malheureusement la compilation du code ne m'a pas permis d'avoir une réponse à ma précédente préoccupation;
je mets en place une fonction de la sorte

Code :

1
2
3
4
Public Function chiffres()
If (keyascii < 48 Or keyascii > 57) And (keyascii <> 8) Then
   keyascii = 0
End If

Mais l'appel à la fonction dans un évènement keypress d'une zone de texte voulue ne fonctionne.
Y'a til des arguments à passer à ma fonction chiffres qui manquent?
Merci de m'aider à réaliser une telle fonction que je pourrai appéler par la suite.

Merci

[FreeAccess]

Je pense que tu n'as pas compris le sens de ma réponse..

Ici, dans ton application tu souhaite ne saisir que des chiffres dans tes zones de texte.
Donc la solution de gérer cela de façon globale apporte la réponse.....

Mais l'appel à la fonction dans un évènement keypress d'une zone de texte voulue ne fonctionne.
Y'a til des arguments à passer à ma fonction chiffres qui manquent?

Ici, tu essaie de créer une fonction en utilisant KeyAscii....
Mais dans ta fonction , ce "terme" est uniquement reconnue comme une variable ......c'est d'ailleurs ce que te précise le message d'erreur lors d'une compilation (si bien sur en en-tête tu as l'instruction Option Explicit..)