Le kième terme, Tk, d’une certaine série mathématique est défini par la formule suivante :
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Le premier terme, T1, de la série est obtenu en substituant k = 1 dans la formule i.e.
| T1 | = | 12 + 6 + 1 | = | 1 | et |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | …. et ainsi de suite |
| 18 + 7 | 25 |
Ci-après, nous allons voir un programme en Excel VBA qui calcule n’importe quel terme Tk et la somme des termes jusqu’à N.
Explication : l’utilisateur a la possibilité de saisir « Tous » ou « Impairs », pour calculer respectivement la somme des N premiers termes de la série ou la somme des seuls termes impairs jusqu’à N.
Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes :
1. Premièrement, nous déclarons quatre variables de type Integer et une variable de type String.
Dim sumType As String
2. Ensuite, nous initialisons les variables.
N = Range(« C2 »).Value
sumType = Range(« C3 »).Value
3. Videz les champs.
Range(« C6 »).Valeur = « »
4. Déterminez la taille du pas.
Case Is = « All »
stepSize = 1
Case Is = « Odd »
stepSize = 2
Case Else
MsgBox « Enter a valid expression in cell C3 »
End
End Select
Tip : parcourez notre programme Select Case pour en savoir plus sur la structure Select Case.
5. Faites les calculs.
Explication : nous utilisons le mot-clé Step pour spécifier l’incrément (1 pour « All » et 2 pour « Odd ») pour la variable compteur de la boucle.
Résultat :
.