VBA : IF combiné avec OR

Bonjour à tous, Forum,

J'ai une question qui va certainement faire sourire les spécialistes VBA mais je n'ai rien trouvé sur le forum (mais j'ai certainement mal cherché...) pour résoudre mon problème.

Je souhaite combiné un test IF avec plusieurs OR et j'ai donc écrit la syntaxe suivante :

Sub test()
Dim trig

trig = UCase(InputBox("Saisir le résultat du Questionnaire (Ex : TOT)", "RESULTAT"))
If trig <> "OUI" Or trig <> "NON" Or trig <> "TOT" Then
    MsgBox "Ce résultat n'existe pas !!! "
    Exit Sub
Else
MsgBox "Excellent Résultat !!! "
End If

End Sub

Mais cela ne fonctionne pas car, quelque soit la valeur que je tape dans le InputBox, j'ai mon message "Ce résultat n'existe pas !!!".

Je veux qu'en tapant "OUI" ou "NON" ou "TOT", le MsgBox qui s'affiche soit "Excellent Résultat !!! ".

Je pensais qu'il fallait utiliser la même syntaxe qu'avec un IF... AND... mais visiblement, ce n'est pas le cas.

Merci à celui ou celle qui pourra me donner un petit coup de main.

Amicalement.

Fabrice,

Il faut que tu utilise AND au lieu de OR:

Si résultat est différant de OUI ET résultat est différant de NON.

Si tu veux utiliser OR fait l’inverse :

Sub test()
Dim trig

trig = UCase(InputBox("Saisir le résultat du Questionnaire (Ex : TOT)", "RESULTAT"))
If trig = "OUI" Or trig = "NON" Or trig = "TOT" Then
    MsgBox "Excellent Résultat !!! "
    Exit Sub
Else
MsgBox "Ce résultat n'existe pas"
End If

End Sub

Re-, le forum,

Quel nul !!!

Merci Math...

Amicalement.

Fabrice,