Au lieu de plusieurs instructions If Then dans Excel VBA , vous pouvez utiliser le Sélectionner la structure du cas .
Situation:
formule pour la moyenne pondérée dans Excel
Placer 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.
RienButComme Entier, résultatComme Chaîne de caractères
2. On initialise la variable score avec la valeur de la cellule A1.
score = Plage('A1').Valeur3. Ajoutez la structure Sélectionner un cas.
Sélectionner CasButCas Est> = 80
résultat = 'très bien'
Cas Est> = 70
résultat = 'bien'
Cas Est> = 60
résultat = 'suffisant'
Cas Autre
résultat = 'insuffisant'
Finir Sélectionner
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ésultat5. Testez le programme.
Résultat lorsque vous cliquez sur le bouton de commande sur la feuille :
comment calculer les années dans Excel
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.
Aller au chapitre suivant : Boucle