Simplifier Résolu/Fermé

Question

Bonjour, 

Voici mon code, il fonctionne mais il est super lourd.
Est-il possible de le simplifier.

If IsNull(Numero_d_article.Value) Then
    OK.Enabled = False
Else
    If IsNull(Indice.Value) Then
        OK.Enabled = False
    Else
        If IsNull(Numero_de_serie.Value) Then
            OK.Enabled = False
        Else
            OK.Enabled = True
        End If
    End If
End If

Merci,
Configuration: Windows XP / Internet Explorer 8.0 
 
GDX

g4br13l · Answer

Dans mon programme que je code actuellement j'ai un code du style et il n'est pas vraiment lourd je ne le ressend meme pas quand il s'execute pour dire la veriter. Tu es sur que ton problème viens de la ?

GDX · Answer

A l'execution, tout fonctionne correctement, le programme n'est pas ralenti mais le code ci-dessus n'est qu'une petite parti, j'ai neuf conditions "if" imbriquées les unes dans les autres.

Et j'ai ce code sur plusieurs fonctions du programme. Cette amélioration est nécéssaire pour que la lecture du code soit plus facile lors de la modification du programme.

GDX · Answer

Code en partie simplifié avec les opérateurs logiques.

If IsNull(Numero_d_article.Value) Or IsNull(Indice.Value) Or IsNull(Numero_de_serie.Value) Then
    OK.Enabled = False
Else
    OK.Enabled = True
End If

Maintenant, il faut que j'encapsule ec code dans une fonction pour pouvoir l'appeler à tout moment.

Je vais chercher sur le net.

En attendant, si qqun peu me dire comment faire...

Merci,

Simplifier

3 réponses

Discussions similaires