Bonjour
A ma connaissance non
Select Case expression sert à exécuter des instructions suivant la valeur de expression
Extrait de l'aide
Select Case, instruction
Exécute un des blocs d'instructions indiqués, selon la valeur d'une expression.
On peut remplacer Select Case par des If ...ElseIf ...End If
Ces 2 macros sont équivalentes
Sub Test()
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"
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
End Sub
Sub Test2()
Dim Number
Number = 8 ' Initialise la variable.
If Number > 0 And Number < 6 Then ' Le nombre est compris entre 1 et 5 inclus.
Debug.Print "Entre 1 et 5"
ElseIf Number = 6 Or Number = 7 Or Number = 8 Then ' Le nombre est compris entre 6 et 8.
Debug.Print "Entre 6 et 8"
ElseIf Number >= 9 And Number <= 10 Then ' Le nombre est 9 ou 10.
Debug.Print "Supérieur à 8"
Else ' Autres valeurs.
Debug.Print "Non compris entre 1 et 10"
End If
End Sub
Sauf erreur (involontaire) de ma part