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