Discussion :

[Attila54]

Bonjour,

Voici mon souci
Dans un formulaire, j'ai une listbox appellée listQ comprenant des valeurs que j'appelle "nombre" allant de +1.00 à -2.00 au pas de 1/100 (donc, 1.00; 0.99; 0.98; ...; -2.00)
lorsque je clique sur une valeur de la listbox, ceci declenche une sub calcul ayant pour fonction de trouver et d'afficher dans une textbox appelée TS une valeur decimale au 1/100.
Ce calcul fonctionne tres bien et on voit donc que "nombre" et valTS sont liés par la sub "calcul" et si l'un bouge, l'autre bouge aussi.

J'ai parallèlement, et issue d'une autre sub "calculadjust", une textbox appelée TSA qui affiche une valeur decimale au 1/100

Mon but final est que ValTS et ValTSA soient egaux ou au pire les plus proches possibles, c'est à dire que ValTS varie pour s'approcher de ValTSA (qui, elle, ne bouge pas)
Jusque maintenant, je procède manuellement, a savoir :
exemple : j'ai ValTS = -2.04 et ValTSA = -2.69
- je clique sur "nombre" de la listbox, ce qui fait varier ValTS jusqu'à avoir les deux valeurs au plus proche.
- Je regarde alors la valeur de "nombre" dans la listbox et j'affiche celle ci dans une textbox resultat

Je voudrais faire cela de maniere automatique via un button "calculate" qui declencherait l'operation

j'ai essaye ceci en introduisant la notion d'ecart (pour l'instant sans afficher le resultat dans une textbox):

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
Private Sub Automatique()
        Dim i As Integer, trouve As Boolean
        Dim ecartqfmin As Double ' plus petit écart
        Dim ecartqfactuel As Double  ' ecart actuel
        Dim indexecart As Integer ' index de l'écart dans ListQ
 
        ListQ.Visible = False
        trouve = False
        For i = 0 To ListQ.Items.Count - 1
            nombre = Convert.ToDouble(ListQ.Items(i).ToString)
            If Convert.ToDouble(TS.Text) = Convert.ToDouble(TSA.Text) Then
                trouve = True
                ListQ.TopIndex = i
                ListQ.SelectedIndex = i
                Exit For
            Else
                ' on calcule l'écart entre TS et TSA
                ecartqfactuel = Math.Abs(Math.Abs(Convert.ToDouble(TS.Text)) - Math.Abs(Convert.ToDouble(TSA.Text)))
                If i = 0 Then
                    ' on calcule l'écart actuel en valeur  absolue. Comme c'est le premier écart il est automatiquement l'écart minimum
                    ecartqfmin = ecartqfactuel
                    indexecart = 0
                Else
                    ' si ecartqfactuel < ecartqfmin alors ecartqfactuel devient ecartqfmin
                    If ecartqfactuel < ecartqfmin Then
                        ecartqfmin = ecartqfactuel
                        indexecart = i
                    End If
                End If
            End If
        Next
        If trouve = False Then
            ' on n'a pas trouvé TS = TSA donc on prend au plus proche
            ListQ.TopIndex = indexecart
            ListQ.SelectedIndex = indexecart
            ' on relance le calcul avec la valeur de ListQ pointée par indexecart ( c'est le plus petit écart)
           calcul()            
nombre = Convert.ToDouble(ListQ.Items(indexecart).ToString)
            End If
        ListQ.Visible = True
          End Sub
 
 Private Sub Buttoncalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncalculate.Click
Automatique()
End Sub

mais rien ne fonctionne ni ne bouge,
que pensez vous du code ????

Merci bien

[asmduty]

Bonjour,

essaye déjà d'y aller en mode pas à pas voir ce qui se passe. (F10/F11)

[chrismonoye]

Bonjour,
l'idée est de parcourir les objets de la listBox dans l'ordre et de comparer l'écart au précédent.
Tant qu'il diminue, on incrémente le numéro d'index et on stoppe dès l'inverse.
Le dernier index est donc celui de l'élément cherché que l'on sélectionne dans la ListBox :

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
 Private Sub Automatique()
        'calcul de l'écart précédent en initialisant à sa valeur la plus grande.
        nombre = 1
        Dim ecartPrev As Double = calcul() - CDbl(TSA.Text)
        Dim indx As Integer = 0
 
        For Each it In ListQ.Items
            nombre = CDbl(it)
            Dim ecart As Double = calcul() - CDbl(TSA.Text)
            If Math.Abs(ecart) <= Math.Abs(ecartPrev) Then
                indx += 1
            Else
                Exit For
            End If
            ecartPrev = ecart
        Next
 
        ListQ.SelectedIndex = indx - 1
 
    End Sub

[Attila54]

merci beaucoup, je teste cela demain et reviens .....

[Attila54]

Bonjour a tousJe viens de tester en creant donc la sub "automatique" et en lancant cette sur depuis un button calculate2

Rien de rien ne bouge, valTS ne bouge pas, et ma listbox ne bouge pas non plus de fait.

Bien evidemment, le code n'accepte pas la sub calcul dans l'expression

Code :

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

Dim ecart As Double = calcul() - CDbl(TSA.Text)

mais même en remplacant par

Code :

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

Dim ecart As Double = CDbl(TS.Text) - CDbl(TSA.Text)

rien ne bouge.

Je n'ai pas d'erreur ni a l'execution ni en mode creation et en pas a pas, rien ne se passe

pour voir ce qui se passait, j'ai crée nue textbox contenant 'ecart' et effectivement en cliquant sur calculate2, la valeur affichée dans ecart est bonne mais ma listbox affiche -2.00 alors qu'elle devrait afficher -1.31 ce que j'obtiens en manuel

en fait le but est bien de ramener la valeur de TS le plus proche possible de celle de TSA et normalement, la valeur de 'nombre' dans la listbox devrait bouger toute seule puisque c'est ce qui se passe en manuel. Je suis carrément perdu la

[StringBuilder]

un truc me chagrine dans ton calcul d'écart :

abs( abs(a) - abs(b) )

=> Si tu as -2 et 1.99 alors tu auras 0.01 comme écart, ce qui est complètement faux.

Il faut faire :

abs( a - b )

[StringBuilder]

Bonjour,
l'idée est de parcourir les objets de la listBox dans l'ordre et de comparer l'écart au précédent.
Tant qu'il diminue, on incrémente le numéro d'index et on stoppe dès l'inverse.

Ça, c'est vrai pour une fonction linéaire. Pour un polynôme, ou autre fonction trigonométrique, il faudra tester l'ensemble des valeurs de l'intervalle.

A noter aussi que dans ce cas, il est possible qu'il y ait plusieurs solutions.

En tout cas, plutôt que de procéder ainsi, je re-sortirais mes cours de 1ère S afin de trouver pour quelles valeurs de X, Y prends la valeur recherchée.
Ensuite, en testant à tout de rôle la valeur précédente et suivante dans ta liste, tu trouveras les valeurs de ta liste qui sont les plus proches.
Cette approche me semble bien plus cartésienne, et permettra de continuer à utiliser ton code même si demain l'interval va de 10000000 à -10000000 avec un incrément de 0,00000001 (parce qu'actuellement, ton code mettrait plusieurs jours à trouver la réponse sur le plus gros serveur de la NASA sur un tel intervalle...)

[Attila54]

oulah stringbuilder, ce que tu dis est tres interessant mais vois tu, quand j'etais en premiere, la section S n'existait même pas cela doit faire 30 ans qu'ils sont aux oubliettes alors j'avoue avoir un peu de mal a suivre

je vais quand meme pour commencer corriger les valeurs absolues pour etre plus mathematiquement correct

[StringBuilder]

Ta méthode "calcul()" fait quoi exactement ?

(Parce que pour rechercher les valeurs en question, il faut déjà voir si on peut transformer ton code en une fonction arithmétique... genre si ça ramène le nombre de mots qui se trouve à la page X d'un livre, forcément, ça va être assez compliqué )

[asmduty]

pour voir ce qui se passait, j'ai crée nue textbox contenant 'ecart' et effectivement en cliquant sur calculate2, la valeur affichée dans ecart est bonne mais ma listbox affiche -2.00 alors qu'elle devrait afficher -1.31 ce que j'obtiens en manuel

en fait le but est bien de ramener la valeur de TS le plus proche possible de celle de TSA et normalement, la valeur de 'nombre' dans la listbox devrait bouger toute seule puisque c'est ce qui se passe en manuel. Je suis carrément perdu la

D'où mon conseil d'aller voir ce qui se passe en pas à pas.
Tu poses un point d'arrêt au début de ta fonction et tu regarde ligne par ligne ce qui se passe (F11), et dans 99.99% des cas tu trouves pourquoi ça ne va pas.

[StringBuilder]

Je viens de tiquer sur un truc...

Dans ton programme, tu modifies effectivement l'index de ta liste, et vu vas effectivement rechercher la valeur calculée dans la textbox liée.

Outre le problème évident de performances (conversion inutiles dans tous les sens), tu te heurtes à un autre problème...

Lorsque tu modifies programmatiquement les contrôles d'une form, les événements associés sont lancés de façon asynchrone.

Ceci veut dire que :
- Si tu as un seul core, ou que ta machine est déjà chargée niveau CPU, aucun événement ne va être traité durant tes modifications (et donc la valeur contenue dans le textbox ne changera pas durant tout le traitement)
- Si tu as plusieurs cores et que ta machine n'est pas trop chargée niveau CPU, les événements vont être traités, mais avec un délai possible : quand tu arrive à la 5° ligne, alors le textbox contiendra peut-être la valeur correspondant à la 2° ligne !

Bref, ton approche n'est pas bonne.

Déclare deux variables, contenant la première et la dernière valeur de ta liste sous forme de double.

Ensuite, fait une boucle qui incrémente un compteur de la première valeur à la dernière valeur.

Et fait le calcul "manuellement" (appelle la même méthode que celle qui est appelée dans le selectedindex_changed).

Lorsque tu trouves la valeur qui donne le bon résultat, sélectionne la ligne dans ta listbox qui a la valeur correspondante.

Ainsi, ton code devrait être à la fois plus rapide... et surtout, fonctionner !

Une autre solution (pourrie) consite à mettre un DoEvents() après chaque changement d'index dans ta listbox. Ceci force le programme à exécuter les événements associés et d'attendre qu'ils aient fini.
C'est contre-performant au possible, donc à éviter !

[chrismonoye]

Bonjour,
voici mon petit test complet qui fonctionne bien, avec un seul déplacement dans la listbox à la bonne valeur et recalcul automatique :

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
50
51
Public Class Form1
    Dim nombre As Double
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListQ.BeginUpdate()
        ' Peuple la ListBox.
        Dim x As Integer
        For x = -100 To 200
            ListQ.Items.Add(-x / 100)
        Next x
        ' Allow the ListBox to repaint and display the new items.
        ListQ.EndUpdate()
 
    End Sub
 
    Private Sub Automatique()
        'calcul de l'écart précédent en initialisant à sa valeur la plus grande.
        nombre = 1
        Dim ecartPrev As Double = calcul() - CDbl(TSA.Text)
        Dim indx As Integer = 0
 
        For Each it In ListQ.Items
            nombre = CDbl(it)
            Dim ecart As Double = calcul() - CDbl(TSA.Text)
            If Math.Abs(ecart) <= Math.Abs(ecartPrev) Then
                indx += 1
            Else
                Exit For
            End If
            ecartPrev = ecart
        Next
 
        ListQ.SelectedIndex = indx - 1
 
    End Sub
 
    Private Function calcul() As Double
        Return nombre * 2
    End Function
 
    Private Sub Buttoncalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncalculate.Click
        Automatique()
    End Sub
 
    Private Sub ListQ_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListQ.SelectedIndexChanged
        nombre = CDbl(ListQ.SelectedItem)
        TS.Text = CStr(calcul())
    End Sub
 
 
End Class

A noter que Calcul est une fonction retournant un double.
Il est vrai que j'ai testé avec une affine. (il faudrait voir la fonction).
Autrement comme le dit StringBuilder, mettre tous les écarts dans une List(Of Double) et extraire l'index du Min (Enfin si l'intervalle est "raisonnable"), pourrait être une solution à tester.

[StringBuilder]

Autrement comme le dit StringBuilder, mettre tous les écarts dans une List(Of Double) et extraire l'index du Min (Enfin si l'intervalle est "raisonnable"), pourrait être une solution à tester.

Je voyais plutôt un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim min as Double  = Convert.ToDouble(ListQ.Items(0).ToString)
Dim max as Double = Convert.ToDouble(ListQ.Items(ListQ.Items.Count -1).ToString)
 
Dim i as Double = min
 
Do While (i <= max)
  ' On fait les calculs ici
  i = i + 0.01
Loop

Ceci afin d'éviter d'accéder inutilement à la listbox et interpréter inutilement des valeurs littérales.

[Attila54]

StringBuilder, voici les tenants et aboutissants de ma sub calcul

calcul d'une valeur appelée QFPROP qui servira dans la sub calcul

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
 
Select Case Convert.ToInt16(TextAge.Text)
                    Case Is < 40
                        valQFPROP = -0.6 '   De 0 à 40 ans : -0.60
                    Case 40 To 41
                        valQFPROP = -0.75 '  De 40 à 41 ans : -0.75
                    Case 42 To 43
                        valQFPROP = -0.8 '   De 42 à 43 ans : -0.80
                    Case 44 To 46
                        valQFPROP = -0.85 '  De 44 à 46 ans : -0.85
                    Case 47 To 52
                        valQFPROP = -0.9 '   De 47 à 52 ans : -0.90
                    Case 53 To 56
                        valQFPROP = -0.95  ' De 53 à 56 ans : -0.95
                    Case 57 To 62
                        valQFPROP = -1.0   '  De 57 à 62 ans : -1.00
                    Case 63 To 66
                        valQFPROP = -1.05  '  De 63 à 66 ans : -1.05
                    Case Is > 67
                        valQFPROP = -1.1 '     De 67 à plus : -1.10
                    Case Is > 70
                        valQFPROP = -1.1 '     De 67 à plus : -1.10
                End Select
            End If

et maintenant la sub 'calcul' qui aboutit a une valeur TS

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
 
Private Sub Calcul()
        ' nombre contient la valeur sélectionnée dans ListQ
        Dim valEpsilon As Double ' valeur de Epsilon1 et 2
        Dim ValQ As Double ' valeur de Q1 et 2
        TextBoxQ.Text = nombre.ToString("0.00")
 
‘Calcul des valeurs Q et ESPILON                
Select Case nombre
                    ' bloc nombre entre -1.01 et -2 ( bloc négatif)
                    Case -1.09 To -1.0
                        'Q1 et Q2  = 0.10 et EPSILON1 et 2 = -0.31
                        ValQ = 0.1
                        valEpsilon = -0.31
                    Case -1.19 To -1.1
                        'Q1 et Q2  = 0.20 et EPSILON1 et 2 = -0.45
                        ValQ = 0.2
                        valEpsilon = -0.45
                    Case -1.29 To -1.2
                        'Q1 et Q2  = 0.30 et EPSILON1 et 2 = -0.55
                        ValQ = 0.3
                        valEpsilon = -0.55
                    Case -1.39 To -1.3
                        'Q1 et Q2  = 0.40 et EPSILON1 et 2 = -0.63
                        ValQ = 0.4
                        valEpsilon = -0.63
                    Case -1.49 To -1.4
                        'Q1 et Q2  = 0.50 et EPSILON1 et 2 = -0.71
                        ValQ = 0.5
                        valEpsilon = -0.71
                    Case -1.59 To -1.5
                        'Q1 et Q2  = 0.60 et EPSILON1 et 2 = -0.77
                        ValQ = 0.61
                        valEpsilon = -0.78
                    Case -1.69 To -1.6
                        'Q1 et Q2  = 0.70 et EPSILON1 et 2 = -0.84
                        ValQ = 0.71
                        valEpsilon = -0.84
                    Case -1.79 To -1.7
                        'Q1 et Q2  = 0.80 et EPSILON1 et 2 = -0.89
                        ValQ = 0.81
                        valEpsilon = -0.9
                    Case -1.89 To -1.8
                        'Q1 et Q2  = 0.90 et EPSILON1 et 2 = -0.95
                        ValQ = 0.9
                        valEpsilon = -0.95
                    Case -2 To -1.9
                        'Q1 et Q2  = 1.00 et EPSILON1 et 2 = -1.00
                        ValQ = 1
                        valEpsilon = -1
 
                        ' bloc nombre entre 0  et 1 ( bloc positif)
                    Case 0.0 To 0.09
                        'Q1 et Q2  = -0.1 et EPSILON1 et 2 = 0.31            
                        ValQ = -0.1
                        valEpsilon = 0.31
                    Case 0.1 To 0.19
                        'Q1 et Q2  = -0.2 et EPSILON1 et 2 = 0.45
                        ValQ = -0.2
                        valEpsilon = 0.45
                    Case 0.2 To 0.29
                        'Q1 et Q2  = -0.3 et EPSILON1 et 2 = 0.55
                        ValQ = -0.3
                        valEpsilon = 0.55
                    Case 0.3 To 0.39
                        'Q1 et Q2  = -0.4 et EPSILON1 et 2 = 0.63
                        ValQ = -0.4
                        valEpsilon = 0.63
                    Case 0.4 To 0.49
                        'Q1 et Q2  = -0.5 et EPSILON1 et 2 = 0.71
                        ValQ = -0.5
                        valEpsilon = 0.71
                    Case 0.5 To 0.59 ' 
                        'Q1 et Q2  = -0.6 et EPSILON1 et 2 = 0.77
                        ValQ = -0.61
                        valEpsilon = 0.78
                    Case 0.6 To 0.69
                        'Q1 et Q2  = -0.70 et EPSILON1 et 2 = 0.84 
                        ValQ = -0.71
                        valEpsilon = 0.84
                    Case 0.7 To 0.79
                        'Q1 et Q2  = -0.80 et EPSILON1 et 2 = 0.89 
                        ValQ = -0.81
                        valEpsilon = 0.9
                    Case 0.8 To 0.9
                        'Q1 et Q2  = -0.90 et EPSILON1 et 2 = 0.95 
                        ValQ = -0.9
                        valEpsilon = 0.95
                    Case Is > 0.9
                        'Q1 et Q2  = -1.00 et EPSILON1 et 2 = +1.00            
                        ValQ = -1.0
                        valEpsilon = 1.0
                End Select
        End Select
        Q1.Text = ValQ.ToString("0.00")
        Q2.Text = Q1.Text
        EPSILON1.Text = valEpsilon.ToString("0.00")
        EPSILON2.Text = EPSILON1.Text
 
       ‘ Calcul DE TS 
        With oeil
            If valQL <= 0 Then
                If valQL > valQFPROP Then
                    valTS = ValEPSILON1 – Q1 
                Else
                    valTS = -(ValEPSILON1) – (ValQ1 + ValQ2) 
                End If
            Else
                    valTS = ValEPSILON2 + (ValQ1 + ValQ2)
            End If
        End With
                End sub

on voit que EPSILON1, EPSILON2, Q1 et Q2 sont introduits, ce sont des valeurs affichées qui en sus servent au calcul de TS. Ql est aussi une valeur affichée qui sert uniquement de référence dans le calcul de TS

Donc quand manuellement je change la valeur de nombre dans la textbox, je declenche la sub calcul qui me calcule une TS

En automatique, je viens seulement de tilter que c'est différent puisque je modifie la valeur de TS et "remonte" la sub 'calcul' a l'envers pour afficher nombre

c'est ce qui me perds je crois

chrismonoye
Je viens de creer un form avec listbox, button et picturebox et y integrer ton code.
Si je clique sur 'nombre' de la listbox, j'ai une valeur de TS qui s'affiche, je rentre une valeur de TSA manuellement, je clique sur calculer et j'ai probablement une erreur de cast car ici

Code :

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

Dim ecartPrev As Double = calcul() - CDbl(TSA.Text)

j'ai l'erreur

La conversion de la chaîne "" en type 'Double' n'est pas valide.

Autant pour moi, je rentrais un "." à la place de la "," dans ma TSA

Par contre, si tout fonctionne dans le nouveau form, ca ne fonctionne pas dans le form initial car il n'accepte pas la sub calcul() dans ecartPrev et me retourne toujours l'erreur

cette expression ne produit pas de valeur

asmduty
en F11, cela passe au niveau du calcul de l'ecart, mais après je tourne en boucle dans

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each it In ListQ.Items
            nombre = CDbl(it)
            Dim ecart As Double = calcul() - CDbl(TSA.Text)
            If Math.Abs(ecart) <= Math.Abs(ecartPrev) Then
                indx += 1
            Else
                Exit For
            End If
            ecartPrev = ecart
        Next

et je n'en sors pas .... ou alors je me debrouille mal avec le step to step

désolé mais je tenais a répondre a tout le monde

[chrismonoye]

Dans mon exemple :

Code :

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

Dim ecartPrev As Double = calcul() - CDbl(TSA.Text)

attend un retour.

Pour cela, calcul ne doit pas être une Sub mais une Function (qui émet un Return), dans le style :

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
    Private Function Calcul() As Double
        ' nombre contient la valeur sélectionnée dans ListQ
        Dim valEpsilon As Double ' valeur de Epsilon1 et 2
        Dim ValQ As Double ' valeur de Q1 et 2
        TextBoxQ.Text = nombre.ToString("0.00")
 
        'Calcul des valeurs Q et ESPILON                
        Select Case nombre
            ' bloc nombre entre -1.01 et -2 ( bloc négatif)
            Case -1.09 To -1.0
                'Q1 et Q2  = 0.10 et EPSILON1 et 2 = -0.31
                ValQ = 0.1
                valEpsilon = -0.31
            Case -1.19 To -1.1
                'Q1 et Q2  = 0.20 et EPSILON1 et 2 = -0.45
                ValQ = 0.2
                valEpsilon = -0.45
            Case -1.29 To -1.2
                'Q1 et Q2  = 0.30 et EPSILON1 et 2 = -0.55
                ValQ = 0.3
                valEpsilon = -0.55
            Case -1.39 To -1.3
                'Q1 et Q2  = 0.40 et EPSILON1 et 2 = -0.63
                ValQ = 0.4
                valEpsilon = -0.63
            'Etc....
        End Select
 
        Q1.Text = ValQ.ToString("0.00")
        Q2.Text = Q1.Text
        EPSILON1.Text = valEpsilon.ToString("0.00")
        EPSILON2.Text = EPSILON1.Text
 
        ' Calcul DE TS 
        With oeil
            If valQL <= 0 Then
                If valQL > valQFPROP Then
                    valTS = ValEPSILON1 - ValQ1
                Else
                    valTS = -(ValEPSILON1) - (ValQ1 + ValQ2)
                End If
            Else
                valTS = ValEPSILON2 + (ValQ1 + ValQ2)
            End If
        End With
 
        Return valTS
 
    End Function

[Attila54]

merci beaucoup pour vos explications
il semblerait que cela fonctionne maintenant. Je vais tout de même tester en profondeur avant de cloturer ce topic

[Attila54]

bon, visiblement aucun souci
Je vous remercie tous pour votre aide et votre patience