castor30
XLDnaute Occasionnel
bonjour,
très novice, ce code concerne le code postal. peut-il être utilisé par 2 textbox simultanément
textbox Dpt et textbox CP
Private Sub CP_Change()
Dim nc As Boolean
If tb9.Value = "" Then Exit Sub
If IsNumeric(tb9.Value) Then
If Len(tb9.Value) > 5 Then nc = True
Else
nc = True
End If
If nc Then
MsgBox "Le code postal comprend 5 chiffres !", vbInformation, "Code postal non conforme"
tb9.Value = ""
End If
End Sub
en vous remerciant
très novice, ce code concerne le code postal. peut-il être utilisé par 2 textbox simultanément
textbox Dpt et textbox CP
Private Sub CP_Change()
Dim nc As Boolean
If tb9.Value = "" Then Exit Sub
If IsNumeric(tb9.Value) Then
If Len(tb9.Value) > 5 Then nc = True
Else
nc = True
End If
If nc Then
MsgBox "Le code postal comprend 5 chiffres !", vbInformation, "Code postal non conforme"
tb9.Value = ""
End If
End Sub
en vous remerciant