Excel VBA Opérateurs logiques
Les trois opérateurs logiques les plus utilisés dans Excel VBA sont: Et, Ou et Non. Comme toujours, nous utiliserons des exemples faciles à rendre les choses plus claires.
Opérateur logique et
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:
Dim score1 As Integer, score2 As Integer, result As String score1 = Range("A1").Value score2 = Range("B1").Value If score1 >= 60 And score2 > 1 Then result = "pass" Else result = "fail" End If Range("C1").Value = result
Explication: si score1 est supérieur ou égal à 60 et score2 est supérieur à 1, Excel renvoie VBA passe, sinon Excel renvoie VBA ne.
Lorsque vous cliquez sur le bouton de commande sur la feuille:
Conclusion: VBA Excel renvoie échouent parce que score2 n’est pas supérieur à 1.
Opérateur logique ou
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:
Dim score1 As Integer, score2 As Integer, result As String score1 = Range("A1").Value score2 = Range("B1").Value If score1 >= 60 Or score2 > 1 Then result = "pass" Else result = "fail" End If Range("C1").Value = result
Explication: si score1 est supérieur ou égal à 60 ou score2 est supérieur à 1, Excel renvoie VBA passe, sinon Excel renvoie VBA ne.
Lorsque vous cliquez sur le bouton de commande sur la feuille:
Conclusion: VBA Excel retourne passer parce que score1 est supérieur ou égal à 60.
Opérateur logique non
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:
Dim score1 As Integer, score2 As Integer, result As String score1 = Range("A1").Value score2 = Range("B1").Value If score1 >= 60 And Not score2 = 1 Then result = "pass" Else result = "fail" End If Range("C1").Value = result
Explication: si score1 est supérieur ou égal à 60 et score2 n’est pas égal à 1, Excel renvoie VBA passe, sinon Excel renvoie VBA ne.
Lorsque vous cliquez sur le bouton de commande sur la feuille:
Conclusion: VBA Excel renvoie échouent parce que score2 est égal à 1.