Probleme avec Select Case base sur le rapport de deux variables :

Bonjour tout le monde,

J’ai la fonction

Code:

---

BranchFct

---

qui compare la valeur de deux variables

Code:

---

CoL et Ho

---

et attribue une valeur soit 0, 1 ou 2 a la variable Rlt.

Mais quand je le teste, cela ne marche pas. Aucun scenario ne semble satisfaire a ma fonction. En fait, SelectCase ne reconnait pas les variables HO et CoL comme etant les composents de sa variable ie (HO/CoL)


Svp aidez moi.

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 46 47 48 49

Function BranchFct(CoL As Variant, HO As Variant) As Variant   Dim Rlt As Integer       If IsNull(HO) Or IsNull(CoL) Then Rlt = 0 Else   Select Case (HO / CoL) 'si HO est superieur a CoL Case (HO / CoL) > 1 Rlt = 1   Case (HO / CoL) < 1 'si Ho est inferieur a CoL If CoL > 3 Then Rlt = 1 Else Rlt = 2 End If     Case (HO / CoL) = 1 'si HO = CoL If CoL > 4 Then Rlt = 2 Else Rlt = 1 End If   End Select       End If         BranchFct = Rlt   End Function   Sub Call_Fct() 'juste un essai.     Debug.Print BranchFct(10, 5)   End Sub

---

Bonsoir,
Sans avoir regardé le reste de ton code, il y a à la première lecture une erreur de syntaxe
Si tu fais un Select case (HO/COL), le test qui suit n'est pas Case (HO / CoL) > 1 mais Case > 1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Select Case (HO / CoL) 'si HO est superieur a CoL Case Is > 1 Rlt = 1 Case Is < 1 'si Ho est inferieur a CoL If CoL > 3 Then Rlt = 1 Else Rlt = 2 End If Case Is = 1 'si HO = CoL If CoL > 4 Then Rlt = 2 Else Rlt = 1 End If End Select

---

Bonjour,

Comme cela avec utilisation de select

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

Function BranchFct(CoL As Variant, HO As Variant) As Variant   Dim Rlt As Integer   If IsNull(HO) Or IsNull(CoL) Then Rlt = 0 Else   Select Case (HO / CoL) 'si HO est superieur a CoL Case Is > 1 Rlt = 1   Case Is < 1 'si Ho est inferieur a CoL If CoL > 3 Then Rlt = 1 Else Rlt = 2 End If   Case 1 'si HO = CoL If CoL > 4 Then Rlt = 2 Else Rlt = 1 End If   End Select     End If   BranchFct = Rlt   End Function

---

Tu peux aussi faire comme cela. Cela évite la division et je trouve que c'est plus lisible

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

Function BranchFct(CoL As Variant, HO As Variant) As Variant   Dim Rlt As Integer       If IsNull(HO) Or IsNull(CoL) Then Rlt = 0 Else   Select Case HO 'si HO est superieur a CoL Case Is > CoL Rlt = 1   Case Is < CoL 'si Ho est inferieur a CoL If CoL > 3 Then Rlt = 1 Else Rlt = 2 End If     Case CoL 'si HO = CoL If CoL > 4 Then Rlt = 2 Else Rlt = 1 End If   End Select     End If     BranchFct = Rlt   End Function

---

ou alors, mon préféré, le select case true, qui permet de déporter l'intégralité de la condition au niveau de chaque branche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Select Case true Case (HO / CoL) > 1 Rlt = 1 Case (HO / CoL) < 1 'si Ho est inferieur a CoL If CoL > 3 Then Rlt = 1 Else Rlt = 2 End If Case (HO / CoL) = 1 'si HO = CoL If CoL > 4 Then Rlt = 2 Else Rlt = 1 End If End Select

---

Mais là, c'est juste une question de préférence.

grand merci les gars pour vos reponses les unes aussi ingenieuses que les autres.