Rechercher plusieurs mot dans une phrase à la fois

Bonsoir à tous,

Pour rechercher des correspondance d'un ensemble de mots dans une phrase, je fais :

Do While Not EOF(Canal)
    Line Input #Canal, a$
    If Len(Trim(a$)) > 0 Then    '-- Si la ligne n'est pas vide
        If InStr(1, a$, "mot1") > 0 Then
            'traitement
        ElseIf InStr(1, a$, "mot2") > 0 Then
            'traitement
        ElseIf InStr(1, a$, "mot3") > 0 Then
            'traitement
        ElseIf InStr(1, a$, "mot4") > 0 Then
            'traitement
        ElseIf InStr(1, a$, "mot5") > 0 Then
            'traitement
        End If
    End If
Loop

Est-il possible de rechercher plusieurs mot dans une phrase à la fois :

If InStr(1,$a, "mot1, mot2, mot3,mot4,mot5") > 0

Merci.

Bonsoir,

en une fois non, mais tu peux mettre plusieurs tests dans un if avec AND ou OR :

If InStr(1, a$, "mot1") > 0 or InStr(1, a$, "mot2") > 0 or InStr(1, a$, "mot3") > 0 then

eric

Bonjour eric,

Alors merci pour la solution.