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.cela marche
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Code : Sélectionner tout - Visualiser dans une fenêtre à part
123456 Private Sub zdt1_KeyPress(KeyAscii As Integer) If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) Then KeyAscii = 0 End If End Sub
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
mais la quand j'appele cette fonction dans une zone de texte il ne fonctionne pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Public Sub chiffres() If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8) Then KeyAscii = 0 End If End Subque manque t'il à ma fonction pour qu'elle puisse être correctement appélé dans un évènement keypress.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub zdt1_KeyPress(KeyAscii As Integer) chiffres End Sub
Bien Merci
Partager