probleme avec un select case

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:

---

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

---

Bonjour,
tu y étais presque regarde ce code

Code:

---

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

---

Bonjour,

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

Ce n'est pas genre :

Code:

---

case x >= ...

---

mais

Code:

---

case Is >= ....

---

C'est tout ...
et donc :

Code:

---

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

---