erreur vba

[norip]

Bonsoir,
j'ai créer un userform avec une case pour le code postal.

Je cherche contrôler la saisie.
La case donc être remplie de numérique, avoir 5 chiffres et ne pas être vide.

j'ai écrit cela, mais lorsque je commence à saisir les chiffres, excel ne me laisse pas continuer et m'affiche directement le msg d'erreur.

Private Sub P_code_postal_Change()

longueur = Len(P_code_postal)
If P_code_postal <> "" Or longueur <> 5 Or Not IsNumeric(P_code_postal) Then
réponse = MsgBox("Le code postal doit être numérique et être composé de 5 chiffres!, Vérifiez vos données!", vbCritical, "ERREUR") 'message erreur
P_code_postal.Value = ""
End If

merci d'avance
norip

 

[norip]

Re : erreur vba

ouep ca marche bien par contre le message d'erreur s'affiche tout le temps quel que soit la saisie..

 

[norip]

Re : erreur vba

voila voila

 

[norip]

Re : erreur vba

c'est bon c'était une petite erreur d'étourderie.
merci