select case

Select Case, instruction, exemple

Cet exemple utilise l'instruction Select Case pour déterminer la valeur d'une variable. La deuxième locution Case contient la valeur de la variable qui est évaluée ; seule l'instruction qui lui est associée est exécutée.

Dim Number

Number = 8 ' Initialise la variable.

Select Case Number ' Évalue Number.

Case 1 To 5 ' Le nombre est compris entre 1 et 5 inclus.

Debug.Print "Entre 1 et 5"

' La locution Case suivante est la seule qui prend la

' valeur True.

Case 6, 7, 8 ' Le nombre est compris entre 6 et 8.

Debug.Print "Entre 6 et 8"

Case 9 To 10 ' Le nombre est 9 ou 10.

Debug.Print "Supérieur à 8"

Case Else ' Autres valeurs.

Debug.Print "Non compris entre 1 et 10"

End Select