VBA - Déclaration de commutateur

Lorsqu'un utilisateur souhaite exécuter un groupe d'instructions en fonction de la valeur d'une expression, Switch Case est utilisé. Chaque valeur est appelée un cas et la variable est activée en fonction de chaque cas. L'instruction Case Else est exécutée si l'expression de test ne correspond à aucun des cas spécifiés par l'utilisateur.

Case Else est une instruction facultative dans Select Case, cependant, il est recommandé de toujours avoir une instruction Case Else.

Syntaxe

Voici la syntaxe d'une instruction Switch dans VBScript.

Select Case expression
   Case expressionlist1
      statement1
      statement2
      ....
      ....
      statement1n
   Case expressionlist2
      statement1
      statement2
      ....
      ....
   Case expressionlistn
      statement1
      statement2
      ....
      ....   
   Case Else
      elsestatement1
      elsestatement2
      ....
      ....
End Select

Exemple

À des fins de démonstration, trouvons le type d'entier à l'aide d'une fonction.

Private Sub switch_demo_Click()
   Dim MyVar As Integer
   MyVar = 1
  
   Select Case MyVar
      Case 1
         MsgBox "The Number is the Least Composite Number"
      Case 2
         MsgBox "The Number is the only Even Prime Number"
      Case 3
         MsgBox "The Number is the Least Odd Prime Number"
      Case Else
         MsgBox "Unknown Number"
   End Select
End Sub

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant.

The Number is the Least Composite Number