Discussion :

[will Igetit]

Bnojour,

j'ai un soucis avec une toute petite partie de mon code.
le code est simple x vaut 2 et y vaut 1

le reusltat que j'obtient est g vaut 15
voila le code, est ce que quelqu'un serait m'aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Select Case x
        Case x >= (0.75 * y)
            g = 2
        Case x >= (0.5 * y)
            g = 4
        Case x >= (0.25 * y)
            g = 8
        Case Else
            g = 15
   End Select
debug.print g

[Krovax]

Bonjour,
tu y étais presque regarde ce code

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
 
Dim x As double
Dim y As Integer, g As Integer
 
x = 2
y = 1
 Select Case True
        Case x >= (0.75 * y)
            g = 2
        Case x >= (0.5 * y)
            g = 4
        Case x >= (0.25 * y)
            g = 8
        Case Else
            g = 15
   End Select
Debug.Print g

[ucfoutu]

Bonjour,

c'est tout simplement la syntaxe du select case qui n'est pas la bonne ...

Ce n'est pas genre :

Code :

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

case x >= ...

mais

Code :

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

case Is >= ....

C'est tout ...
et donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
Select Case x
        Case Is >= (0.75 * y)
            g = 2
        Case Is >= (0.5 * y)
            g = 4
        Case Is >= (0.25 * y)
            g = 8
        Case Else
            g = 15
   End Select