Exclusion de nombre!

js8bleu Messages postés 624 Statut Membre -  
lermite222 Messages postés 9042 Statut Contributeur -
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

2 réponses

js8bleu Messages postés 624 Statut Membre 4
 
NB : J'utilise Visual basic 6.0
0
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
Une façon de faire parmi d'autre..
Sub VTest() 
Dim I As Integer, TB, B As Boolean 
    TB = Array(4, 7, 12, 13) 
    For I = 0 To 3 
        If txtnumcours.Value = TB(I) Then B = True: Exit For 
    Next I 
    If B Then 
        'Traitement quand un des nombres a été trouvé 
    Else 
        'Si non 
    End If 
End Sub

A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
0