Au lieu de plusieurs instructions If Then dans Excel VBA, vous pouvez utiliser le Sélectionner la structure du cas.
Situation:
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :
1. Tout d'abord, déclarez deux variables. Une variable de type Integer nommée score et une variable de type String nommée result.
Score faible en tant qu'entier, résultat en tant que chaîne
2. On initialise la variable score avec la valeur de la cellule A1.
score = Plage("A1").Valeur
3. Ajoutez la structure Sélectionner un cas.
Sélectionnez le score de cas
Cas Est >= 80
résultat = "très bien"
Cas Est >= 70
résultat = "bien"
Cas Est >= 60
résultat = "suffisant"
Cas autre
résultat = "insuffisant"
Fin de la sélection
Explication : Excel VBA utilise la valeur de la variable score pour tester chaque instruction Case suivante afin de voir si le code sous l'instruction Case doit être exécuté.
4. Écrivez la valeur de la variable résultat dans la cellule B1.
Plage("B1").Valeur = résultat
5. Testez le programme.
Résultat lorsque vous cliquez sur le bouton de commande sur la feuille :
Remarque : Excel VBA exécute le code sous la deuxième instruction Case pour toutes les valeurs supérieures ou égales à 70 et inférieures à 80.
