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
Commentaires
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.
La structure Select Case dans Excel VBA
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.
2. Nous initialisons la variable score avec la valeur de la cellule A1.
score = Range("A1").Value3. 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 = resultatCommentaires
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.
Initiation à Excel
Fonctions Excel
Excel VBA
Macros VBA Utiles
Plus d'outils
Sur Facebook
Sur YouTube