Le Ke terme, Tk, d'une certaine série mathématique est définie 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, c'est-à-dire
| T1 | = | 12 + 6 + 1 | = | 1 | et |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … etc |
| 18 + 7 | 25 |
Ci-dessous, nous examinerons un programme en Excel VBA ce calcule tout terme Tk et la somme des termes jusqu'à N.
Explication : l'utilisateur a la possibilité de saisir "Tous" ou "Impair", 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. Tout d'abord, nous déclarons quatre variables de type Integer et une variable de type String.
Dim i, term, N, stepSize As Integer
Dim sumType As String
2. Deuxièmement, nous initialisons les variables.
je = 0
N = Plage("C2").Valeur
sumType = Range("C3").Valeur
3. Videz les champs.
Plage("A8:B1000").Valeur = ""
Plage("C6").Valeur = ""
4. Déterminez stepSize.
Sélectionnez Case sumType
Case Is = "Tous"
stepSize = 1
Case Is = "Impair"
stepSize = 2
Cas autre
MsgBox "Entrez une expression valide dans la cellule C3"
Finir
Fin de la sélection
Astuce : consultez notre programme Select Case pour en savoir plus sur la structure Select Case.
5. Faites les calculs.
Pour terme = 1 à N étape stepSize
Cellules (8 + i, 1). Valeur = terme
Cellules(8 + i, 2).Valeur = (terme 2 + (6 * terme) + 1) / ((9 * terme) + 7)
Plage("C6").Valeur = Plage("C6").Valeur + Cellules(8 + i, 2).Valeur
je = je + 1
Prochain mandat
Explication : on utilise le mot clé Step pour spécifier l'incrément (1 pour "Tous" et 2 pour "Impair") pour la variable compteur de la boucle.
Résultat:
