[VBA-E] Comment coder "différent d'1 enumeration de valeurs"?

Salut

Voilà de retour avec une question simple sans doute pour vous, mais pour laquelle je cherche une réponse sur le Web depuis une heure et demie...

Quelle syntaxe utiliser pour comparer le contenu d'une cellule à une liste de valeurs?

Quelqu'un svp pourrait corriger mon code :

Code:

---

If Cells(x,y).Value <> "Valeur1";"Valeur2";"Valeur3" Then.....

---

J'essaie avec OR, en mettant des parentheses, rien n'y fait, et je ne trouve pas de réponse dans l'aide....

peu-être :

Code:

---

1 2 3 4

If Cells(x,y).Value <> "Valeur1" OR _ Cells(x,y).Value <> "Valeur2" OR _ Cells(x,y).Value <> "Valeur3" Then.....

---

Attention, l'opérateur OR attend qu'au moins une condition soit remplie.
Avec

Code:

---

1 2 3

If Cells(x,y).Value <> "Valeur1" OR _ Cells(x,y).Value <> "Valeur2" OR _ Cells(x,y).Value <> "Valeur3" Then.....

---

On rentre donc dans le If à tous les coups.

Personnellement, j'écrirais:

Code:

---

1 2 3

If Not Cells(x, y).Value = "Valeur1" OR _ Cells(x, y).Value = "Valeur2" OR _ Cells(x, y).Value = "Valeur3" Then...

---

Citation:

---

Envoyé par AlainTech

Attention, l'opérateur OR attend qu'au moins une condition soit remplie....

---

oui comme AliochaBada parler d'OR j'ai remis un OR sans réfléchir en corrigeant seulement l'erreur de Synthase... mais si la valeur dans la cellule doit être différente des 3 valeurs (1,2,3..) c'est plutôt un AND qu'il faudrai....

Code:

---

1 2 3 4

If Cells(x,y).Value <> "Valeur1" AND _ Cells(x,y).Value <> "Valeur2" AND _ Cells(x,y).Value <> "Valeur3" Then.....

---

Même si, dans le cas présent, la différence de vitesse ne se fera probablement pas sentir, je vous invite à réfléchir à l'optimisation d'un code basé sur le Or par rapport à celui basé sur le And.

Dans le code que j'ai proposé, on sortira du test DES QU'une condition sera remplie.
Alors qu'avec un And, on doit tester TOUTES les conditions.

Citation:

---

Envoyé par AlainTech

Même si, dans le cas présent, la différence de vitesse ne se fera probablement pas sentir, je vous invite à réfléchir à l'optimisation d'un code basé sur le Or par rapport à celui basé sur le And.

Dans le code que j'ai proposé, on sortira du test DES QU'une condition sera remplie.
Alors qu'avec un And, on doit tester TOUTES les conditions.

---

... salut Alain ... eu... tu devrai relire ton code... il doit manquer des Nots ou des parenthéses... ce qui change tout pour la sortie anticipée du test ( je ne me souviens plus si VB/VBA ... sort du test avant l'évaluation compléte de l'expression..., un petit test et je reviens...)

[Edit] Le petit test :


C'est bien ce que je pensai VB évalue chaque élément d'une expression quelque soit le résultat des éléments précédents , pour vérifier cela j'ai fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function MaFctFalse() As Boolean Debug.Print "FonctionFalse" MaFctFalse = False End Function Function MaFctTrue() As Boolean Debug.Print "FonctionTrue" MaFctTrue = True End Function Sub MonTest() Debug.Print "Test 1 un OR .. 1° Expression fausse 2° vrai" If MaFctFalse Or MaFctTrue Then Debug.Print "-------------- Fin test 1 ------------" End If Debug.Print "Test 2 : un OR .. 1° Expression vrai 2° fausse" If MaFctTrue Or MaFctFalse Then Debug.Print "-------------- Fin test 2 ------------" End If End Sub

---

Citation:

---

Envoyé par Fenêtre exécution

Test 1 un OR .. 1° Expression fausse 2° vrai
FonctionFalse
FonctionTrue
-------------- Fin test 1 ------------
Test 2 : un OR .. 1° Expression vrai 2° fausse
FonctionTrue
FonctionFalse
-------------- Fin test 2 ------------

---

on voit bien dans la fenêtre exécution le passage dans les 2 fonctions..;)

Z'avez pas fini ...non ?:lol:
(vous vous ennuyez, hein ?.... moi aussi !)
Je vais mettre tout le monde d'accord

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command1_Click() cellule = "voila" pas_bon= "/ddddd/aaaaa/voila/peu importe/et encore/" If InStr(pas_bon, "/" & cellule & "/") = 0 Then MsgBox "pas là donc on peut continuer" Else MsgBox "est là donc on abandonne" End If End Sub

---

ce qui pour vous donnerait donc cette condition pour accepter :

Code:

---

if instr("/valeur1/valeur2/valeur3/", "/" & Cells(x,y).Value & "/") = 0

---

Citation:

---

Envoyé par bbil

peu-être :

Code:

---

1 2 3 4

If Cells(x,y).Value <> "Valeur1" OR _ Cells(x,y).Value <> "Valeur2" OR _ Cells(x,y).Value <> "Valeur3" Then.....

---

---

Merci Bbil pour ta réponse.

Ca ne fonctionne pas, car il additionne pas les conditions, je veux que le Then s'applique que si la valeur de Cells(x,y) est différente de toutes les valeurs 1, 2, 3, .....

J'ai essayé ta synthaxe en remplacant OR par AND mais ca me donne le meme résultat, il applique la suite de Then à toutes mes cellules.

Je bloque là....

EDIT 2 min apres : OOPS, OOPS, OOPS, mais il y a eu des posts entre temps :oops:, bon je vais commencer par lire avant alors ;), tout le monde ne se lève pas à 14H on dirait....

Citation:

---

Envoyé par bbil

oui comme AliochaBada parler d'OR j'ai remis un OR sans réfléchir en corrigeant seulement l'erreur de Synthase... mais si la valeur dans la cellule doit être différente des 3 valeurs (1,2,3..) c'est plutôt un AND qu'il faudrai....

Code:

---

1 2 3 4

If Cells(x,y).Value <> "Valeur1" AND _ Cells(x,y).Value <> "Valeur2" AND _ Cells(x,y).Value <> "Valeur3" Then.....

---

---

Vi pour mon code, la valeur de la cellule testée doit bien être différente des valeurs 1, 2, 3.....
Donc dans ce cas si je suis bien, c'est pas la peine de chercher à optimiser, tout doit être testé (ouf, tant mieux, l'instruction Instr me semblait un peu compliquée pour un dimanche, je vais la garder pour une autre fois ;)).

Merci Bbil ca marche nickel, je pensais qu'il existait une syntaxe plus contractée, mais bon ca y est j'ai tout écrit, ca marche,

Merci pour vos réponses :P

Bon je clique sur Résolu, hein, mais que ca vous empeche pas de faire la course....

Citation:

---

Envoyé par AlainTech

Dans le code que j'ai proposé, on sortira du test DES QU'une condition sera remplie.

---

Mea culpa.
Je me suis basé sur le comportement d'un ancien Basic (probablement QBasic) qui , effectivement, sortait du test à la première valeur Vraie trouvée.

Je constate que VB(A) n'a pas cette intelligence.

On peut donc, indifféremment, utiliser le Or ou le And.

Ceci dit, j'ai testé ma formulation et elle fonctionne aussi (sans Not ni parenthèses ajoutées).

Pour votre information :

je viens de faire plusieurs essais, de plusieurs manières différentes ...
Résultat des courses, un select case et de loin le plus rapide :

essai 1 :

Code:

---

1 2 3 4 5 6 7 8

For i = 1 To 10000000 cellule = valeur1 If cellule <> "Valeur1" And cellule <> "Valeur2" And cellule <> "Valeur3" Then toto = 1 Else toto = 2 End If Next

---

un peu plus de 7 secondes
Essai 2 :

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To 10000000 cellule = valeur2 Select Case cellule Case Is = "valeur1", "valeur2", "valeu3" toto = 1 Case Else toto = 2 End Select Next

---

un peu moins de 5 secondes