Discussion :

[thunderpat]

j'ai crée un prog avec des if pour faire des plages de valeur
le problème c 'est que quand je met 311 il me met 15.44 au lieu de 15.46
voici le prog

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
If z < 74 Then
 
        b = (0.072329 * z)
 
        ElseIf 73 < z < 155 Then
        g = 5.28
        coef = 0.06321
        X = z - 73
        b = g + (coef * X)
 
 
        ElseIf 154 < z < 235 Then
        g = 10.46
        coef = 0.06475
        X = z - 154
        b = g + (coef * X)
 
        ElseIf 234 < z < 312 Then
        g = 15.64
        coef = 0.066494
        X = z - 234
        b = g + (coef * X)
 
 
        ElseIf 311 < z < 396 Then
        g = 20.78
        coef = 0.062024
        X = z - 311
        b = g + (coef * X)
 
        ElseIf 395 < z < 472 Then
        g = 25.99
        coef = 0.067273
        X = z - 395
        b = g + (coef * X)
 
    End If

[Delbeke]

Ca serait sympa d'ultiliser les balises [ Code] [ /Code] pour mettre ton code en evidences.

Dans l'editeur de message c'est le bouton #


Je pense que ton problème pourrait venir du type de variable que tu utilises. Ce qu'on ne voit pas dans ton extrait de code

Ensuite la formulation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ElseIf 311 < z < 396 Then

n'est pas tres orthodoxe pour vb, il vaidrait mieux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ElseIf z>311 and  z < 396 Then

[thunderpat]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public b As Single
Public coef As Single
Public g As Single
Public X As Single
Public z As Single 'variable pour essai

[Delbeke]

Essaye de passer le tout en double, et j'ai édité mon post pour le compléter,rafraichis ta page pour voir mon ajout

[thunderpat]

j'ai mis tout en double et c'est toujours le meme

[thunderpat]

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
Dim b As Double
Dim coef As Double
 Dim g As Double
 Dim X As Double
 Dim z As Double 'variable pour essai
 
 z = valaffiche
 
    If 74 > z Then
 
        b = (0.072329 * z)
 
        ElseIf 73 > z < 155 Then
        g = 5.28
        coef = 0.06321
        X = z - 73
        b = g + (coef * X)
 
 
        ElseIf 154 > z < 235 Then
        g = 10.46
        coef = 0.06475
        X = z - 154
        b = g + (coef * X)
 
        ElseIf 234 > z < 312 Then
        g = 15.64
        coef = 0.066494
        X = z - 234
        b = g + (coef * X)
 
 
        ElseIf 311 > z < 396 Then
        g = 20.78
        coef = 0.062024
        X = z - 311
        b = g + (coef * X)
 
        ElseIf 395 > z < 472 Then
        g = 25.99
        coef = 0.067273
        X = z - 395
        b = g + (coef * X)
 
    End If