Discussion :

[soso78]

Salut,

Voilà, j'ai un problème de programmation.

J'ai une condition :

- si le mot n'est pas "LT", "LE", EQ", "NE", "GE", ou "GT", la condition est réalisé, sinon, elle ne l'est pas.

J'ai pensé faire un truc comme ça:

Code :

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

1
2
3
4
5
6
Dim cond As String
If ((cond <> "LT") Or (cond <> "LE") or (cond <> "EQ") or (cond <> "NE") or (cond <> "GE") or (cond <> "GT")) Then
Debug.print "La condition est vraie" 
Else 
Debug.Print "La condition est fausse"
ENd If

Mais ça ne marche pas :-(. Si "cond" vaut "LT", "GE", ... la condition n'est pas réalisée !

Pouvez-vous m'expiquer pourquoi et ce qui faurait faire ?

Merci par avance !

[tomlev]

Si "cond" vaut "LT", "GE", ... la condition n'est pas réalisée !

Ben ça correspond bien à ton énoncé de départ... Par contre ça ne correspond pas à ton code

De toutes façons j'ai l'impression qu'il y a un problème de logique dans ton code... Une condition comme ça :

Code :

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

(X <> A) Or (X <> B)

sera forcément toujours vraie (sauf si A = B), car X ne peut pas être égal à la fois à A et à B, et sera donc forcément différent de l'un des deux.

Reprenons ta condition sous forme de texte :

le mot n'est pas "LT", "LE", EQ", "NE", "GE", ou "GT"

La condition opposée est donc :

le mot est "LT", "LE", EQ", "NE", "GE", ou "GT"

Qui se traduit en VB par :

Code :

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

(cond = "LT") Or (cond = "LE") or (cond = "EQ") or (cond = "NE") or (cond = "GE") or (cond = "GT")

Et donc ce que tu veux, c'est la négation de cette condition :

Code :

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

Not((cond = "LT") Or (cond = "LE") or (cond = "EQ") or (cond = "NE") or (cond = "GE") or (cond = "GT"))

En appliquant le théorème de Morgan, ça peut aussi s'écrire :

Code :

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

(cond <> "LT") And (cond <> "LE") And (cond <> "EQ") And (cond <> "NE") And (cond <> "GE") And (cond <> "GT")

D'autre part, il vaut mieux en général utiliser les opérateurs AndAlso et OrElse plutôt que And et Or :
- avec AndAlso, si la condition de gauche n'est pas vraie, celle de droite n'est pas évaluée (ce n'est pas nécessaire car si une seule est fausse, toute la condition est fausse)
- avec OrElse, si la condition de gauche est vraie, celle de droite n'est pas évaluée (ce n'est pas nécessaire puisqu'il suffit qu'une seule soit vraie)

[B.AF]

Salut,


- si le mot n'est pas "LT", "LE", EQ", "NE", "GE", ou "GT", la condition est réalisé, sinon, elle ne l'est pas.

Pour des raisons de clareté, simplifie tes spécifications, là tu enchaines les négativités...


La condition est systèmatiquement vrai à l'exception de correspondre à l'un des éléments tels que : "LT", "LE", EQ", "NE", "GE", ou "GT"

C'est la traduction de ton énoncé.

Ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
 
Select Case parameter  
    Case "LT", "LE", EQ", "NE", "GE","GT"
           Return False
 
    Case Else
           Return True 
End Select