Exclusion de nombre!

Question

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

Configuration: Linux / Firefox 3.0.3

js8bleu · Answer

NB : J'utilise Visual basic 6.0

lermite222 · Answer

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)

Exclusion de nombre!

2 réponses

Discussions similaires

Newsletters