Un test LIKE dans un Select Case

Bonjour à tous,

J’aime rias introduire un test LIKE dans un Select Case, mais ça me donne une erreur :

Select Case S
Case "N"
    ...
Case "P"
    ...
Case like "Gs*"
    'Parce que Gs vient sur trois valeurs :
    ' Gs(1), Gs(2), Gs(3)
    If InStr(S, "1") > 0 Then
        ...
    End If
    If InStr(S, "2") > 0 Then
        ...
    End If
    If InStr(S, "3") > 0 Then
        ...
    End If
End Select

Une solution ?

Merci d'avance.

Bonjour,

Un petit lien intéressant sur le sujet ici :

En résumé, il faut l'utiliser ainsi :

Sub Select_Case_True_Like()
word = "KAO"
Select Case True
    Case word Like "*K*K*"
        MsgBox "Good"
    Case Else
        MsgBox "Not Good"
End Select
word = "KAKAO"
Select Case True
    Case word Like "*K*K*"
        MsgBox "Good"
    Case Else
        MsgBox "Not Good"
End Select
End Sub

Bonjour Grand Charman,

En se basant sur ta solution, le code en haut deviendra :

Select Case True
Case S Like "N"
    ' Code ...
Case S Like "P"
    ' Code ...
Case S Like "Gs*"
    'Parce que Gs vient sur trois valeurs :
    ' Gs(1), Gs(2), Gs(3)
    Select Case True
    Case (InStr(S, "1") > 0)
        ' Code ...
    Case (InStr(S, "2") > 0)
        ' Code ...
    Case (InStr(S, "3") > 0)
        ' Code ...
    End Select
End Select

Merci pour ton aide