Discussion :

[js8bleu]

Bonjour à tous,

je souhaiterai exclure les chiffres 4, 7, 12 et 13 mais je ne sais pas comment m'y prendre. Je voudrai faire par exemple :

Si txtnumcours.text différent de (4, 7, 12, 13) alors

traitement

sinon

traitement

finsi

Merci d'avance

Cordialement

[OhMonBato]

Une possiblité parmi d'autres :

Code :

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

1
2
3
4
5
6
7
 
Select Case txtnumcours.text 
Case "4","7","12","13"
blabla...
Case Else
bla bla...
End Select

[Overcrash]

Salut

Ou avec un if

Code :

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

1
2
3
4
5
6
7
Private Sub Text1_Validate(Cancel As Boolean)
    If (Text1.Text <> ("4" Or "7" Or "12" Or "13")) Then
        MsgBox "digdig"
    Else
        ' blabla
    End If
End Sub

Over

[DarkVader]

Salut

Ou avec un if

Code :

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

1
2
3
4
5
6
7
Private Sub Text1_Validate(Cancel As Boolean)
    If (Text1.Text <> ("4" Or "7" Or "12" Or "13")) Then
        MsgBox "digdig"
    Else
        ' blabla
    End If
End Sub

Over

Surement.

[Overcrash]

oup's erreur ? qu'on me flagelle ...


Je peux même pas effacer mon poste tu m'a citer bouuuuuuu
Par contre je vois pas le truc a part que le <> qui est un = .

Tu peux me dire ? je vais miam au pire je testerais après.



Over

[DarkVader]

oup's erreur ? qu'on me flagelle ...


Je peux même pas effacer mon poste tu m'a citer bouuuuuuu
Par contre je vois pas le truc a part que le <> qui est un = .

Tu peux me dire ? je vais miam au pire je testerais après.



Over

Pas de problème

(4 Or 7 Or 12 Or 13) == 15
ou
("4" Or "7" Or "12" Or "13") ==15

If condition est un mauvais choix sous VB qui nécessite de répéter la variable à chaque condition,
il est préférable de biaiser par exemple
if instr(1,liste,value)>0 ...
ou autre (boucle après un split etc.)