Configuration textBox VBA
Bonjour à tous,
Je viens tout juste de démarer sur VBA.
Je vous explique ma situation : J'ai 3 zones de livraison en fonction de différents codes postaux. (Zone express, Zone A, Zone B)
Je souhaite que lorsqu'un client entre sont code postal, une boite de dialogue s'ouvre en indiquant sa zone de livraison. J'ai donc inséré un textbox avec le code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Private Sub TextBox1_Change()
If TextBox1.Text = "21000" Or TextBox1.Text = "21110" Or TextBox1.Text = "21120" Or TextBox1.Text = "21121" Or TextBox1.Text = "21130" Or TextBox1.Text = "21160" Then
MsgBox "VOUS ÊTES EN ZONE EXPRESS"
ElseIf TextBox1.Text = "21150" Or TextBox1.Text = "21170" Or TextBox1.Text = "21190" Or TextBox1.Text = "21200" Or TextBox1.Text = "21230" Or TextBox1.Text = "21250" Then
MsgBox "VOUS ÊTES EN ZONE A"
ElseIf TextBox1.Text = "21140" Or TextBox1.Text = "21210" Or TextBox1.Text = "21330" Or TextBox1.Text = "21390" Or TextBox1.Text = "21400" Or TextBox1.Text = "21430" Then
MsgBox "VOUS ÊTES EN ZONE B"
Else
MsgBox "VOUS ÊTES EN ZONE NON LIVRABLE"
End If
End Sub |
Mon problème : lorsque que je tape à peine le "2" pour "21000" par exemple, la boite de dialogue de zone non liverable s'ouvre. Enfaite, j'aimerai que le code attende que les 5 chiffres du code postal soient renseignés pour s'activer.
Comment faire ???
Merci d'avance.
