Discussion :

[moilou2]

Bonjour, je voudrais savoir comment prendre en compte plusieurs If not à la suite?

En faite je voudrais faire le test que :

Si le contenu de la textBox1 n'est pas "20" ou "21" ou "22" alors
....
Sinon
....
Fin

J'ai testé sa:

Code :

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

If Not Me.txtChamp1.Value = "20" Or Not Me.txtChamp1.Value = "21" Or Me.txtChamp1.Value = "22" Or Me.txtChamp1.Value = "23" Then

Mais sa me pernd que le "20", si c'est "21" "22" ou "23" sa passe quand même.

Comment faire?

[pgz]

Avec quelques parenthèses...

Code :

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

If Not (Me.txtChamp1.Value = "20") Or Not (Me.txtChamp1.Value = "21") Or ...

Tu peux aussi utiliser un select case

Code :

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

1
2
3
4
5
Select Case Me.TextChamp1
    Case 20, 21, ...
    '?
    case else
    'ici textchamp1 ne vaut ni 20, ni 21, ni ...

Et Decondelite a raison, dans le premier cas, c'est des ET

PGZ

[decondelite]

Tu as fait une erreur de traduction.

Moi je dirais plutôt "si c'est pas 20 ET si c'est pas 21 ET si c'est pas 22 ET si c'est pas 23". Ca veut donc dire que tu devrais utiliser AND et non pas OR.

Ceci dit, j'ai une solution plus courte à te proposer, car ta manière de faire elle est répétitive. Je te propose cette solution que j'utilise à chaque fois que je désire avoir un nombre entier compris entre 2 bornes et qu'il y a plus de 3 possibilités:

Code :

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

1
2
3
4
' Je rentre le contenu de la textbox dans une variable
' pour ne pas devoir réaccéder à ce contenu à chaque test
contenu = Me.txtChamp1.Value
If Not (Int(contenu) = contenu) Or contenu<20 Or contenu>23 Then

[oOVaveOo]

Une solution :

Code :

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

1
2
3
4
5
6
Select case Me.txtChamp1.Value
 case 20 to 22
     msgbox "de 20 à 22"
 case else
     msgbox "autres"
end select

une autre :

Code :

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

if Me.txtChamp1.Value >19 and Me.txtChamp1.Value < 23 then

une dernière :

Code :

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

if Me.txtChamp1.Value <> 20 and  Me.txtChamp1.Value <> 21 and Me.txtChamp1.Value <> 22

[moilou2]

je vous remercie. En fait j'ai opté pour:

Code :

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

If me.txtBox1.value<20 then

Je n'y avais même pas pensé.

[Godzestla]

Bonjour,
visiblement il faut remplacer OR par AND car sinon cela passe à tout les coups, car c'est toujours soit différent de 20, ou 21, ... ou 22, ou ...

Simple question de logique.