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.
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.
Bonjour. Excellent site qui me dépanne régulièrement sauf que nous sommes assommés par les pubs, à la longue c’est fatiguant à naviguer ainsi, alors je quitte après quelques minutes pour d’autres sites moins encombrant.