j'ai quelques soucis avec mon programme je cherche à comparer une valeur qui selon ce qu'elle en donne une autre correspondante

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 If Form6.TextBox10.Text <= 0.036 Then
 
            Form6.TextBox14.Text = "3,75"
 
        ElseIf Form6.TextBox10.Text >= 0.036 And Form6.TextBox10.Text < 0.035 Then
 
            Form6.TextBox14.Text = "4"
 
        ElseIf Form6.TextBox10.Text >= 0.035 And Form6.TextBox10.Text < 0.0335 Then
 
            Form6.TextBox14.Text = "4.25"
 
        ElseIf Form6.TextBox10.Text >= 0.0335 And Form6.TextBox10.Text < 0.032 Then
 
            Form6.TextBox14.Text = "4.5"
 
        ElseIf Form6.TextBox10.Text >= 0.032 And Form6.TextBox10.Text < 0.0315 Then
 
            Form6.TextBox14.Text = "4.75"
 
        ElseIf Form6.TextBox10.Text >= 0.0315 And Form6.TextBox10.Text < 0.029 Then
 
            Form6.TextBox14.Text = "5"
 
        ElseIf Form6.TextBox10.Text >= 0.029 And Form6.TextBox10.Text < 0.028 Then
 
            Form6.TextBox14.Text = "5.25"
 
        ElseIf Form6.TextBox10.Text >= 0.028 And Form6.TextBox10.Text < 0.027 Then
 
            Form6.TextBox14.Text = "5.5"
 
        ElseIf Form6.TextBox10.Text >= 0.027 And Form6.TextBox10.Text < 0.026 Then
 
            Form6.TextBox14.Text = "5.75"
 
 
        ElseIf Form6.TextBox10.Text >= 0.026 And Form6.TextBox10.Text < 0.025 Then
 
            Form6.TextBox14.Text = "6"
 
        ElseIf Form6.TextBox10.Text >= 0.025 And Form6.TextBox10.Text < 0.023 Then
 
            Form6.TextBox14.Text = "6.25"
 
        ElseIf Form6.TextBox10.Text >= 0.023 Then
 
            Form6.TextBox14.Text = "6.5"
        End If
Le problème que quand la valeur est donnée il me donne soit 3.75 ou 6.5 en correspondance. Je tiens à précisé que je suis un gros débutant