Comment choisir un cas dans Excel VBA

Au lieu de plusieurs instructions If Then dans Excel VBA, vous pouvez utiliser la structure Select Case.

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 résultat.

Dim score As Integer, resultat As String

2. Nous initialisons la variable score  avec la valeur de la cellule A1.

score = Range("A1").Value

3. Ajoutez la structure Select Case.

Dim score As Integer, resultat As String

score = Range("A1").Value

Select Case score

    Case Is >= 80

        resultat = "très bien"

    Case Is >= 70

        resultat = "Bien"

    Case Is >= 60

        resultat = "sufficent"

    Case Else

        resultat = "insufficent"

        Range("B1").Value = resultat

Explication: Excel VBA utilise la valeur de la variable score  pour tester chaque instruction Case suivante pour voir si le code sous l’instruction Case doit être exécuté.

4. Écrivez la valeur du résultat variable dans la cellule B1. Range (“B1”). Value = resultat

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x