Le kème terme, Tk, d’une certaine série mathématique est défini par la formule suivante:

Le premier terme, T1, de la série est obtenu en substituant k = 1 dans la formule i.e.

Ci-dessous, nous examinerons un programme dans Excel VBA qui calcule tout terme Tk et la somme des termes jusqu’à N.

Explication: l’utilisateur a la possibilité de saisir « Tout » ou « Impaire », pour calculer respectivement la somme des premiers N 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 i, term, N, stepSize As Integer
Dim sumType As String

2. Deuxièmement, nous initialisons les variables.

i = 0

N = Range("C2").Value

sumType = Range("C3").Value

Videz les champs

Range("A8:B1000").Value = ""

Range("C6").Value = ""

Déterminez stepSize.

Select Case sumType

    Case Is = "Tout"

        stepSize = 1

    Case Is = "Ancien"

        stepSize = 2

    Case Else

        MsgBox "Enter a valid expression in cell C3"

        End

End Select

Conseil: parcourez notre programme Select Case pour en savoir plus sur la structure Select Case.

3. Faites les calculs.

For term = 1 To N Step stepSize

    Cells(8 + i, 1).Value = term

    Cells(8 + i, 2).Value = (term ^ 2 + (6 * term) + 1) / ((9 * term) + 7)

    Range("C6").Value = Range("C6").Value + Cells(8 + i, 2).Value

    i = i + 1

Next term

Explication: nous utilisons le mot clé Step pour spécifier l’incrément (1 pour « Tout » et 2 pour « Ancien ») pour la variable de compteur de la boucle.

Résultat: