Test d'une variable entre 2 bornes

Version imprimable

Bonjour,

Je me creuse la tête sur une macro pourtant simple.
Je cherche à savoir si un nombre réel est compris entre 2 bornes ou entre 2 autres. Le problème est qu'il me retourne la mauvaise réponse:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub test() Dim val As Single 'val = Cells(27, 6).Value val = 1.24681 If 2 <= val <= 3 Then toto = 1 ElseIf 1 <= val < 2 Then toto = 2 End If MsgBox val & " , " & toto End Sub
Je commence à devenir fou là!

Merci

Bonjour,

Et avec un Select Case ?
Il est conseillé d'éviter d'utiliser "Val" comme variable car c'est une fonction VB (Renvoie le nombre contenu dans une chaîne de caractère sous la forme d'une valeur numérique d'un type approprié.)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub Test() Dim Valeur As Single Dim Toto Valeur = 1.24681 Select Case Valeur Case 0 To 1.9999999999 Toto = 1 Case 2 To 2.9999999999 Toto = 2 Case 3 To 3.9999999999 Toto = 2 End Select MsgBox Toto End Sub

23/01/2016, 11h26
Dormeur74
Bonjour tout le monde,

2 erreurs dans ton code :

1) tu n'as pas le droit d'utiliser val comme nom de variable, car c'est un mot réservé en VB

2) Même si tu n'as pas d'erreur au niveau de l'interprêteur, tu n'as pas le droit d'écrire :
Code:

1 2 3 4 5 6 If 2 <= valeur <= 3 Then toto = 1 ElseIf 1 <= valeur < 2 Then toto = 2 End If
Tu dois écrire :
Code:

1 2 3 4 5 6 If valeur >= 2 And valeur <= 3 Then toto = 1 ElseIf valeur >= 1 And valeur < 2 Then toto = 2 End If
Il est effectivement préférable d'utiliser Select Case...End Select à Elseif.
25/01/2016, 17h04
malaka81

Merci pour toutes ces infos. Je vais tester ça!

Je ne connaissais pas le case select. Ca va me simplifier la vie! Merci
25/01/2016, 18h10
Dormeur74
Tu feras très attention à une faute assez classique : compare les codes 1 et 2

1
Code:

1 2 3 4 5 6 7 8 9 10 Select Case valeur Case Is >= 3 toto = 3 Case Is >= 2: toto = 2 Case Is >= 1 toto = 1 Case Else toto = 0 End Select
2
Code:

1 2 3 4 5 6 7 8 9 10 Select Case valeur Case Is >= 1 toto = 1 Case Is >= 2: toto = 2 Case Is >= 3 toto = 3 Case Else toto = 0 End Select
L'ordre des valeurs avec les symboles < <= > >= n'est pas négligeable
Le code dégressif n° 1 est juste. Si valeur vaut 2.2 toto vaudra 2, ce qui est JUSTE

Le code progressif 2 est faux, mais ce n'est pas toujours facile à voir :
- si valeur vaut 0.2, toto vaut bien 0, ce qui est JUSTE
- si valeur vaut 1.2, toto vaut bien 1, ce qui est JUSTE
- mais si toto est >= 2, toto vaudra toujours 1, ce qui est FAUX. En fait, le compilateur s'arrête à la 1ère sortie trouvée. Donc gaffe aux nombres réels !

J'ai testé ça marche bien, merci.

Par contre, j'ai essayé d'insérer une boucle if dans ma boucle Select Case mais ça me génère un message d'erreur "Case sans Select Case".
J'imagine que la raison est que ce n'est aps possible d'imbriquer une autre boucle dans une boucle Case.

Voici l'extrait de mon code (oui c'est pas optimisé et c'est très moche mais je verrai à l'optimiser une fois que j'aurai quelque chose qui fonctionne):

Code:

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
Select Case NbInf
    Case 0
        If R = "3R4-R" Then
'            Pb = 0
            MsgBox "Pont OK"
        ElseIf R = "R-3R" Then
'            Pb = 1
            If Rmax = R12 Then
                MsgBox "Jauge 1 HS"
            ElseIf Rmax = R23 Then
                MsgBox "Jauge 2 HS"
            ElseIf Rmax = R34 Then
                MsgBox "Jauge 3 HS"
            If Rmax = R14 Then
                MsgBox "Jauge 4 HS"
            End If
        Else
            MsgBox "Cas non pris en compte"
        End If
    Case 3
        If R = "R-2R" Then
'            Pb = 2
            If (Rmax = R13 And R14 <> "Inf") Then
                MsgBox "Jauges 1 & 2 HS"
            ElseIf (Rmax = R13 And R14 = "Inf") Then
                MsgBox "Jauges 3 & 4 HS"
            ElseIf (Rmax = R24 And R14 <> "Inf") Then
                MsgBox "Jauges 2 & 3 HS"
            ElseIf (Rmax = R24 And R14 = "Inf") Then
                MsgBox "Jauges 1 & 4 HS"
            End If
        ElseIf R = "3R4-R" Then
'            Pb = 4
            If (R12 And R13 And R14) = "Inf" Then
                MsgBox "Fil 1 coupe"
            ElseIf (R12 And R23 And R24) = "Inf" Then
                MsgBox "Fil 2 coupe"
            ElseIf (R13 And R23 And R34) = "Inf" Then
                MsgBox "Fil 3 coupe"
            ElseIf (R14 And R24 And R34) = "Inf" Then
                MsgBox "Fil 4 coupe"
            End If
        Else
            MsgBox "Cas non pris en compte"
        End If

Merci pour votre aide

Bonjour,

C'est le message d'horreur qui t'as induit dans l'erreur.

Commence, par ajouter ton End IF dans ce bloc:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 ElseIf R = "R-3R" Then
'            Pb = 1
            If Rmax = R12 Then
                MsgBox "Jauge 1 HS"
            ElseIf Rmax = R23 Then
                MsgBox "Jauge 2 HS"
            ElseIf Rmax = R34 Then
                MsgBox "Jauge 3 HS"
'====>Manque End if ici
 
            If Rmax = R14 Then
                MsgBox "Jauge 4 HS"
            End If

25/01/2016, 22h36
malaka81

Effectivement, le problème vient de mon code. J'aurais du mettre un elseIf a la place du IF.

Merci pour le debug!