Bonjour,

Je n'ai que peu d'expérience en VB et je n'arrive pas a comprendre une de mes erreur, pourriez vous m'aider s'il vous plait?

J'utilise Visual Studio 2005.

Voici un code qui récupere normalement la valeur d'une txtbox et en remplit une autre avec un select, sauf que ça ne fonctionne pas, ma textbox affiche tout le temps un "2"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub TxtBoxIs_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtBoxIs.LostFocus
        Label10.Text = TxtBoxIs.Text
        Select Case TxtBoxIs.Text
            Case 0 To 20
                qis = 1
                TxtBoxQIS.Text = 1
            Case 21 To 50
                qis = 2
                TxtBoxQIS.Text = 2
            Case 51 To 80
                qis = 3
                TxtBoxQIS.Text = 3
            Case 81 To 120
                qis = 4
                TxtBoxQIS.Text = 4
            Case 121 To 160
                qis = 5
                TxtBoxQIS.Text = 5
            Case 161 To 200
                qis = 6
                TxtBoxQIS.Text = 6
            Case 201 To 240
                qis = 7
                TxtBoxQIS.Text = 7
            Case 241 To 255
                qis = 8
                TxtBoxQIS.Text = 8
            Case Else
                qis = 0
                TxtBoxQIS.Text = "#"
        End Select
Merci d'avance!