Discussion :

[Attila54]

Bonjour,
Je dois afficher des messages de contrôle d'erreur sur une valeur affichée par une textbox appelée K2.
Jusqu'ici tout allait bien, si le textbox affichait une valeur < 36.00 et > 50.00 j'affichais un message d'erreur et si elle etait supérieur a 52.00, j'affichais un message d'avertissement.

Je dois maintenant tenir compte d'un autre paramètre issu d'une autre textbox appelée relift et qui affiche soit "Y" soit "N"

si relift.text = "Y" et K2 est comprise entre 36.00 et 60.00 ==> pas de message
si relift.text = "Y" et K2 < 36.00 ou K2 > 60.00 ==> message "Données hors plage"
si relift.text = "N" et K2 est comprise entre 36.00 et 50.00 ==> pas de message
si relift.text = "N" et K2 < 36.00 ou K2 > 50.00 ==> message "Données hors plage"
si relift.text = "N" et K2 < 36.00 ou K2 > 52.00 ==> message "êtes vous certain de voiloir continuer ?"

J'ai un souci pour mettre en place la structure compte tenu du nouvel element relift.

Initialement j'avais fait ca :

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
' Erreur dans K2
                If DecimalSeparator = "," Then K2.Text = K2.Text.Replace(".", ",")
                If Double.TryParse(K2.Text, .valK2) = True Then ' test si numérique
                    ' K2 contient bien une valeur numérique
                    .valK2 = Convert.ToDouble(K2.Text)
                    If .valK2 < 36 Or .valK2 > 50 Then
                        ' on affiche un message d'erreur et on redonne le focus à K2 pour renouveler la saisie
                        If langue = "en" Then
                            messageaff = "The K2 value must be ranging between 36.00 and 50.00°"
                            infoaff = "Data out of range"
                        Else
                            messageaff = "La valeur K2 doit être comprise entre 36,00 et 50,00"
                            infoaff = "Données hors plage"
                        End If
                        MessageBox.Show(messageaff, infoaff, MessageBoxButtons.OK, MessageBoxIcon.Warning)
                        K2.Text = ""
                        K2.Refresh()
                        K2.Focus()
                        erreur = True
                        Exit Sub
                    Else
                        ' Valeur correcte dans la TextBox K2
                        ' Test si >= à 52 et message d'avertissement
                        If .valK2 >= 52 Then
                            If langue = "en" Then
                            messageaff = "The K2 value is higher or equal to 50: Do you want to continue with this value ?"
                                infoaff = "Information : K2 value"
                            Else
                                messageaff = "La valeur K2 est supérieure ou égale à 50 : voulez-vous continuer avec cette valeur ?"
                                infoaff = "Information : valeur K2"
                            End If
                            If MessageBox.Show(messageaff, infoaff, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No Then
                                K2.Text = ""
                                K2.Refresh()
                                K2.Focus()
                                erreur = True
                                Exit Sub
                            End If
                        End If
                        K2.Text = .valK2.ToString("0.00") ' 2 chiffres après la virgule
                        K2IMAGE.Text = K2.Text
                    End If
                Else
                    If langue = "en" Then
                        messageaff = "K2 is not a numeric value"
                        infoaff = "Incorrect data"
                    Else
                        messageaff = "La valeur K2 n'est pas une valeur numérique"
                        infoaff = "Données incorrectes"
                    End If
                    MessageBox.Show(messageaff, infoaff, MessageBoxButtons.OK, MessageBoxIcon.Warning)
                    K2.Text = ""
                    K2.Refresh()
                    K2.Focus()
                    erreur = True
                    Exit Sub
                End If

Je suis carrément perdu la ... comment pourrais je integrer la valeur affichée par relift sans perturber la structure de la sub ?

Merci de vos conseils

[Attila54]

Je pense avoir trouvé, je vais traiter tout dabors les cas possibles selon la valeur affichée de relift, je pense que c'est la meilleure solution.
Merci de votre aide