Bonjour
Peux-tu tester ce bout de code
J'ai nommé ton textbox Tbx_Code
If Not IsNumeric(Me.Tbx_Code.Value) Then
MsgBox "Erreur sur la saisie du codel." & Chr(13) & "Veuillez le ressaisir à nouveau. Merci.", vbCritical + vbOKOnly, _
"Erreur."
Me.Tbx_CodePostal.Value = ""
Exit Sub
End If
If Me.Tbx_Code.Value Like "??????" Then
Else
MsgBox "Un code contient 6 chiffres." & Chr(13) & "Veuillez le ressaisir à nouveau. Merci.", vbCritical + vbOKOnly, _
"Erreur."
Exit Sub
End If
Bon courage
Pascal