Ma procédure fonctionne mal...(vérification de saisie dans un formulaire)

B'jour!

Je suis méga débutant et même les infos que je trouvent à droite, à gauche sur le net me parraissent trop compliquées...

Je suis en train de faire un formulaire et j'aimerai effectuer des vérifications sur le remplissage de celui-ci. En gros, grand classique je suppose, j'aimerais que le code postal saisi par l'utilisateur ne contienne que des entiers. Pour celà, j'ai trouvé une petite procédure qui me permet de vérifier les caractères saisis à partir de leur code ascii. La procédure est la suivante:

Private Sub txtCodePostal_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Or Chr(KeyAscii) = m_DecimalChar Then
        Exit Sub
    End If
   
    If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
        KeyAscii = 0
        Beep
    End If
End Sub



Point positif, ça fonctionne! Mais maintenant, j'aimerai bien pouvoir utiliser ce bout de programme sans avoir à faire un copier coller à chaque fois ... Le système de fonction me parrait donc être le bon, non?

Pour celà, j'avais imaginé faire ma fonction:

    Sub fonctionNumerique
           If KeyAscii = 8 Or Chr(KeyAscii) = m_DecimalChar Then
        Exit Sub
    End If
   
    If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
        KeyAscii = 0
        Beep
    End If

puis de l'appeler en cas de besoin de la manière suivante:

Private Sub txtCodePostal_KeyPress(KeyAscii As Integer)
    call fonctionNumerique
End sub


Mais dans ce cas là, la saisie dans le champs n'est pas bloquée, tous les caractères s'affichent MAIS il y a un Beep à chaque caractère.

Donc j'aimerais savoir si quelqu'un peut me donner un coup de main afin que seuls les entiers apparaissent ;)

Merci beaucoup de votre aide :)

David

Salut,

Je pense que pour ta fonction, il faut que tu lui passes en paramètre ta zone de text à vérifier

A+
Exploreur

 

Salut, essaye ça:
Public Sub numerique(ByVal KeyAscii As MSForms.ReturnInteger)

    If KeyAscii = 8 Or Chr(KeyAscii) = m_DecimalChar Then
        Exit Sub
    End If
   
    If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
        KeyAscii = 0
        Beep
    End If

   End Sub

Private Sub txtCodePostal_KeyPress(KeyAscii As Integer)
Call numerique(KeyAscii)
End Sub


 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Salut,

Voici :

Private Sub Text1_KeyPress(keyascii As Integer)

Call Verife(keyascii)
   

End Sub

Private Function Verife(keyascii As Integer)
 If keyascii = 8 Or Chr(keyascii) = m_DecimalChar Then
        Exit Function
    End If
   
    If Chr(keyascii) < "0" Or Chr(keyascii) > "9" Then
        keyascii = 0
        Beep
    End If
End Function

A+
Exploreur

 

Post croisé

A+
Exploreur

 

Bonjour,

Une fonction reçois des paramètres et retourne une valeur.
1) tu n'utilises pas là une fonction, mais une sous-routine .
2) tu ne passes aucun paramètre et ne reçois donc rien en retour de ton appel  !
    paramètre à passer à une fonction  ? peut-être la valeur de keyascii, non ?
    valeur retournée par une fonction ? peut être une booléenne True ou False , non ?
    et si true : au retour de l'appel : keyascii = 0 : beep

Genre, donc : if controlons(keyascii) then beep: keyascii = 0

et ta fonction :
private function controlons(KK as integer)
    controlons = False
     If KK = 8 Or Chr(KK) = m_DecimalChar or isnumeric(chr(KK)) Then exit sub
     controlons = true
End function
Devrait suffire !
Fait à main levée et à contrôler, donc....

Merci sincèrement de vos réponses.

Vos deux propositions ne sont pas exactement les mêmes vu qu'un des deux propose le mot "function". Sauf erreur de ma part, une "function" ne devrait pas retrouner une valeur?

J'ai toutefois une erreur qui arrive lorsque je lance mon appli, avec l'une ou l'autre des solutions:
erreur de compilation:
type défini par l'utilisateur non défini

Alors est-ce que j'ai oublié une déclaration qqpart?

Merci encore de votre aide!

David

PS: j'étudie la proposition de jmfmarques que je viens de recevoir ;)

Then exit Function et pas Then Exit Sub, bien sur

Violent Ken

Pour empêcher la saisie de caractères autres que des chiffres, regarde le bout de code que j'ai posté avant (plus optimisé que de faire des Chr()...)
@+

Hex Editor VB