Au lieu de multiples Si des déclarations puis dans Excel VBA, vous pouvez utiliser la structure Select Case.

Situation:

Select Case in Excel VBA

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:

  1. Tout d’abord, déclarer deux variables. Une variable de type entier pointage nommé et une variable de type String résultat nommé.

Dim score As Integer, result As String

  1. Nous initialisons le score variable avec la valeur de la cellule A1.

score = Range("A1").Value

  1. Ajouter la structure Select Case.

Select Case score

Case Is >= 80

result = "very good"

Case Is >= 70

result = "good"

Case Is >= 60

result = "sufficient"

Case Else

result = "insufficient"

End Select

Explication: Excel VBA utilise la valeur du score variable pour tester chaque case suivante pour voir si le code sous la déclaration de cas doit être exécutée.

  1. Ecrire la valeur du résultat variable B1 cellulaire.

Range("B1").Value = result

  1. Tester le programme.

Lorsque vous cliquez sur le bouton de commande sur la feuille:

Select Case Result

Remarque: Excel VBA exécute le code dans la deuxième déclaration de cas pour toutes les valeurs supérieures ou égales à 70 et inférieure à 80.