VBA logique OperaTors : ET, OU, NON, SI NON dans Excel VBA
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

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รฉ.
