Discussion :

[wiyouk]

Bonjour,

J'ai réalisé une petite fonction mais elle ne fonctionne pas.
Elle renvoie toujours le case else c'est à dire 48.
Quelqu'un comprend-il pourquoi ?
J'ai le même problème si je remplace like par =
Merci de votre aide

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
Const Forfait1J=12
 
Function FPERSO_ForfaitMidi(ByVal Forfait As String) As Integer
 
Select Case Forfait
    Case Forfait Like "Forfait 0J"
        FPERSO_ForfaitMidi = 0
    Case Forfait Like "Forfait 1J"
        FPERSO_ForfaitMidi = Forfait1J
    Case Forfait Like "Forfait 2J"
        FPERSO_ForfaitMidi = Forfait1J * 2
    Case Forfait Like "Forfait 3J"
        FPERSO_ForfaitMidi = Forfait1J * 3
    Case Else
        FPERSO_ForfaitMidi = Forfait1J * 4      
End Select
End Function

[HopPopPop]

Sans aller plus loin, il ne faut pas écrire :

Code :

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

Case Forfait Like "Forfait 0J"

, mais plutôt :

Code :

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

Case "Forfait 0J"

et ainsi de suite ...

[wiyouk]

Merci beaucoup,
Ca fonctionne.
J'avais passé du temps sur les formus et trouvé toutes sortes d'utilisation de select case.
Ca ne m'avais donc pas choqué.

Avec la solution, ça parrait évident ...

Un grand merci.