VBA logique OperaTors : ET, OU, NON, SI NON dans Excel VBA

VBA logique Operateurs : ET, OU, NON

Excel VBA logique Operajeudi

Disons que vous souhaitez traiter une commande client. Pour cela, vous souhaitez dโ€™abord vรฉrifier si le produit commandรฉ existe ou non. Si tel est le cas, vous souhaitez รฉgalement vรฉrifier si la quantitรฉ disponible est suffisante. Les opรฉrateurs logiques sont utiles dans de tels cas. Les opรฉrateurs logiques sont utilisรฉs pour รฉvaluer plusieurs conditions.

Les principaux opรฉrateurs logiques Excel VBA AND, OR, NOT sont rรฉpertoriรฉs dans le tableau ci-dessous :

Ratio S / N Opรฉrateur Description Exemple Sortie
1 ET AND : Ceci est utilisรฉ pour combiner plusieurs conditions. Si toutes les conditions sont vraies, AND est รฉvaluรฉ comme vrai. Si l'une des conditions est fausse, AND est รฉvaluรฉ comme faux Si vrai = vrai ET faux = vrai ALORS non
2 OR OU : Ceci est utilisรฉ pour combiner plusieurs conditions. Si lโ€™une des conditions est vraie, OR renvoie vrai. Si tous sont faux, OR renvoie faux Si vrai = vrai OU vrai = faux ALORS oui
3 pas NON : Celle-ci fonctionne comme une fonction inverse. Si la condition est vraie, elle renvoie faux, et si une condition est fausse, elle renvoie vrai. Si NON (vrai) Alors non

VBA logique OperaExemple de source de tors Code

Par souci de simplicitรฉ, nous comparerons des nombres codรฉs en dur.

Ajoutez des boutons ActiveX ร  la feuille ร  partir de ยซ lโ€™option Insรฉrer ยป.

Dรฉfinissez les propriรฉtรฉs comme indiquรฉ dans l'image ci-dessous

VBA logique Operajeudi
VBA logique Operajeudi

Le tableau suivant prรฉsente les propriรฉtรฉs que vous devez modifier et les valeurs que vous devez รฉgalement mettre ร  jour.

Ratio S / N Contrรดle Propriรฉtรฉs Valeur
1 Bouton de commande1 Nom btnAND
Lรฉgende ET Operator (0 = 0)
2 Bouton de commande2 Nom btnOR
Lรฉgende OR Operator (1 = 1) Ou (5 = 0)
3 Bouton de commande3 Nom btnPAS
Lรฉgende pas Operator Non (0 = )

Ajoutez le code suivant ร  btnAND_Click

Private Sub btnAND_Click()
    If (1 = 1) And (0 = 0) Then
            MsgBox "AND evaluated to TRUE", vbOKOnly, "AND operator"
        Else
            MsgBox "AND evaluated to FALSE", vbOKOnly, "AND operator"
    End If
End Sub

VBA Si ET Operator

  • "Si (1 = 1) et (0 = 0) alors" l'instruction if utilise l'opรฉrateur logique AND pour combiner deux conditions (1 = 1) Et (0 = 0). Si les deux conditions sont vraies, le code situรฉ au-dessus du mot-clรฉ ยซ Else ยป est exรฉcutรฉ. Si les deux conditions ne sont pas vraies, le code sous le mot-clรฉ ยซ Else ยป est exรฉcutรฉ.

Ajoutez le code suivant ร  btnOR_Click

Private Sub btnOR_Click()
    If (1 = 1) Or (5 = 0) Then
            MsgBox "OR evaluated to TRUE", vbOKOnly, "OR operator"
        Else
            MsgBox "OR evaluated to FALSE", vbOKOnly, "OR operator"
    End If
End Sub

VBA Si OU Operator

  • "Si (1 = 1) Ou (5 = 0) Alors" l'instruction if utilise l'opรฉrateur logique OR pour combiner deux conditions (1 = 1) Et (5 = 0). Si lโ€™une des conditions est vraie, le code ci-dessus le mot-clรฉ Else est exรฉcutรฉ. Si les deux conditions sont fausses, le code sous le mot-clรฉ Else est exรฉcutรฉ.

Ajoutez le code suivant ร  btnNOT_Click

Private Sub btnNOT_Click()
    If Not (0 = 0) Then
            MsgBox "NOT evaluated to TRUE", vbOKOnly, "NOT operator"
        Else
            MsgBox "NOT evaluated to FALSE", vbOKOnly, "NOT operator"
    End If
End Sub

VBA Si NON Operator

  • "Si non (0 = 0) alors" la fonction VBA If Not utilise l'opรฉrateur logique NOT pour annuler le rรฉsultat de la condition de l'instruction if. Si les conditions sont vraies, le code sous le mot-clรฉ ยซ Else ยป est exรฉcutรฉ. Si la condition est vraie, le code ci-dessus le mot-clรฉ Else est exรฉcutรฉ.

Tรฉlรฉchargez Excel contenant le code ci-dessus

Rรฉsumez cet article avec :