VBA - Instruction If imbriquée
Une instruction If ou ElseIf dans une ou plusieurs instructions If ou ElseIf. Les instructions If internes sont exécutées en fonction des instructions If les plus externes. Cela permet à VBScript de gérer facilement des conditions complexes.
Syntaxe
Voici la syntaxe d'un imbriqué If instruction dans VBScript.
If(boolean_expression) Then
Statement 1
.....
.....
Statement n
If(boolean_expression) Then
Statement 1
.....
.....
Statement n
ElseIf (boolean_expression) Then
Statement 1
.....
....
Statement n
Else
Statement 1
.....
....
Statement n
End If
Else
Statement 1
.....
....
Statement n
End If
Exemple
À des fins de démonstration, trouvons le type d'un nombre positif à l'aide d'une fonction.
Private Sub nested_if_demo_Click()
Dim a As Integer
a = 23
If a > 0 Then
MsgBox "The Number is a POSITIVE Number"
If a = 1 Then
MsgBox "The Number is Neither Prime NOR Composite"
ElseIf a = 2 Then
MsgBox "The Number is the Only Even Prime Number"
ElseIf a = 3 Then
MsgBox "The Number is the Least Odd Prime Number"
Else
MsgBox "The Number is NOT 0,1,2 or 3"
End If
ElseIf a < 0 Then
MsgBox "The Number is a NEGATIVE Number"
Else
MsgBox "The Number is ZERO"
End If
End Sub
Lorsque le code ci-dessus est exécuté, il produit le résultat suivant.
The Number is a POSITIVE Number
The Number is NOT 0,1,2 or 3