Intégrer une suite dans Excel

[invitebb330929]

Salut à tous

Voila je fais un tableau sur excel et j'ai un petit problème

Il faut que j'intègre une formule assez simple f(n)=(60*1,5^n-1)
En elle même il me suffit de la placer dans une cellule avec n ayant pour cible une cellule où je rentrerais la donnée

Le problème viens du fait que j'ai envis de calculer par exemple pour un valeur de 10 la somme du résultat de f(n) pour toutes valeurs allant de 1 à 10
En gros 60*1,5^0+60*1,5^1+60*1,5^2+60* 1,5^3+60*1,5^4+60*1,5^5+60*1,5 ^6+60*1,5^7+60*1,5^8+60*1,5^9
Mais voilà il se peut que j'ai à calculer pour une valeur de n très importante .. et là est tout le problème.. c'est déjà assez long de taper tout ça.. je vous laisse imaginer pour 200 voir même 1000

donc enfait j'aimerais si possible une formule qui a pour cible une cellule X où je place (toujours dans mon exemple 10) et ou je me retrouve avec la somme de tout les termes précédant y compris celui avec n=10

Si vous avez une idée.. Merci de m'en faire part.. parce que même avec 60 en facteur.. c'est pas cool

Merci d'avance à vous tous

Jules

Ps: et bien sur bonne année et bonne santé à tous
-----

[Papy Octet]

Bonjour Jul,

Voici une macro que tu peux introduire dans un module VBA dans excel.

Tu introduis la valeur minimum de n dans la cellule A1
La valeur maximum de n dans A2 et tu lances la macro.
Elle va te calculer ta fonction avec toutes les itérations de n dans la colonne B
de ta feuille excel.

La feuille doit s'appeler "feuil1", c'est le nom par défaut à l'ouverture d'un nouveau classeur.

Mon code :
****************************** *************************

Sub Fn_Jul()
'Calcule une fonction 60*1,5^n-1 pour des valeurs de n comprises entre deux limites données
Dim LMin, LMax, Li, Col, Cpt
Dim Messages
LMin = 0
LMax = 0
Li = 0
Col = 0
Cpt = 0

'Enregistrer le valeur mini pour n contenue dans la cellule a1
LMin = ThisWorkbook.Sheets("feuil1").Cells(1, 1)
'Enregistrement de la valeur maxi de n contenue dans la cellule a2.
LMax = ThisWorkbook.Sheets("feuil1").Cells(2, 1)

'Teste si LMin est bien < LMax, sinon message
If LMin >= LMax Then
    Messages = MsgBox("Erreur de valeur !", vbOKOnly, "Erreur de données")
End If

For Li = 1 To LMax - LMin + 1 'Ecrire le résultat dans une nouvelle cellule
    Cpt = (60 * 1.5 ^ (Li - 1 + LMin) - 1)  'Calcul de la fonction
    ThisWorkbook.Sheets("feuil1").Cells(Li, 2) = Cpt   'Inscription dans la cellule
Next Li

End Sub

****************************** ***********************

Je pense que le code est assez documenté pour être compris.

A+

[danyvio]

Avec Excel, comme avec d'autres outils, il faut être paresseux ! Quand on se croit obligé de frapper 150000 fois la même formule avec une variante facile à exprimer, c'est qu'on n'a pas vu la solution... paresseuse..

Ex :Tu crée en colonne A la liste des nombres 0 à ..... (tu sais faire!)

EN B1 la formule : =puissance(1,5; A1)
Tu copies (tu dois savoir le faire) B1 dans les cellules suivantes de la colonne B (de B2 à Bxx). Ceci ajustera automatiquement les formules, et tu auras le plaisir de voir en B8 par exemple : =puissance (1,5; A8) A8 contenant alors 7.

Tu écris dans la cellule C1 : =60 x somme ($B$1:b1), et tu dupliques la formule de C2 à Cxx

Les colonnes C1 à CXX contiendont le cumul progressif que tu cherches.
Merci qui ?

[invitebb330929]

Ok merci à vous deux ! je vais voir ça ce soir et je vous tiens au courant
Merci

[A voir en vidéo sur Futura]

[invitebb330929]

c'est bon j'ai réussi
Merci à vous deux pour votre aide