Excel VBA a la construction IF Then Else que vous pouvez utiliser pour analyser plusieurs conditions et exécuter des codes basé sur ces conditions.
Une autre construction similaire qui vous permet de vérifier plusieurs conditions est l’instruction SELECT CASE.
Select Case est utile lorsque vous avez trois conditions ou plus que vous voulez vérifier. Vous pouvez également l’utiliser avec deux conditions (mais je pense que If Then Else est plus facile à utiliser dans ces cas).
Un exemple simple où l’instruction Select Case est utile lorsque vous voulez obtenir la note d’un l’étudiant en fonction des notes qu’il / elle a obtenues (traitées à titre d’exemple plus loin dans ce didacticiel).
Remarque: tous les exemples de codes traités dans ce didacticiel sont destinés à être placés dans un module de VBA.
Ce tutoriel couvre:
Sélectionnez la syntaxe de cas
Voici la syntaxe de Select Case dans Excel VBA:
Select Case Test_ExpressionCase Value_1Code Block when Test_Expression = Value_1Case Value_2Code Block when Test_Expression = Value_2Case Value_3Code Block when Test_Expression = Value_3Case ElseCode Block when none of the case conditions are metEnd Select
- Test_Expression: C’est l’expression dont nous analysons la valeur en utilisant différents cas (mieux expliqué avec les exemples ci-dessous).
- Condition_1, Condition_2,…: Ce sont les conditions sur lesquelles l’expression textuelle est testée. S’il remplit la condition, alors le bloc de code pour la condition donnée est exécuté.
Pour chaque instruction Select Case que vous utilisez, vous devez utiliser l’instruction End Select.
Remarque: dès qu’une condition est remplie, VBA quitte la construction de sélection de cas. Donc, si vous avez cinq conditions et que la deuxième condition est remplie, VBA quittera Select Case – et le reste des conditions ne sera pas testé.
Sélectionnez des exemples de cas
Maintenant, pour mieux comprendre comment utiliser l’instruction Select Case dans VBA, passons en revue quelques exemples.
Notez que la plupart des exemples de ce didacticiel sont destinés à expliquer le concept. Celles-ci peuvent ou non être la meilleure façon de faire le travail.
Commençons par un exemple simple de voir comment Select Case nous permet de vérifier les conditions.
Exemple 1 – Vérifiez les nombres
Dans l’exemple ci-dessous, le code demande à l’utilisateur d’entrer n’importe quel nombre entre 1 et 5, puis affiche une boîte de message avec le numéro entré par l’utilisateur.
Sub CheckNumber()Dim UserInput As IntegerUserInput = InputBox("Please enter a number between 1 and 5")Select Case UserInputCase 1MsgBox "You entered 1"Case 2MsgBox "You entered 2"Case 3MsgBox "You entered 3"Case 4MsgBox "You entered 4"Case
read more