Bonsoir,
j'ai la cellule A1 = 15%
et dans la cellule B1 = -(15%^1) -(15%^2) -(15%^3) - (15%^4) - (15%^5) - (15%^6) - (15%^7) - (15%^8) - (15%^9)
a chaque fois on soustraire 15 et augmenter le puissance +1
Version imprimable
Bonsoir,
j'ai la cellule A1 = 15%
et dans la cellule B1 = -(15%^1) -(15%^2) -(15%^3) - (15%^4) - (15%^5) - (15%^6) - (15%^7) - (15%^8) - (15%^9)
a chaque fois on soustraire 15 et augmenter le puissance +1
Salut,
c'est faisable, mais tu ne nous dis pas dans quelle cellule tu veux poursuivre tes formules, ni si tu as besoin de faire cela une seule fois ou si c'est un cas général avec lequel tu penses travailler ?
Tu nous parles de A1 et de B1 ok, mais la prochaine cellule concernée ca sera laquelle ? quelle sera sa formule exacte ?
Ca peut être une fonction VBA oui, mais avant de te proposer une piste qui coule de source, quel serait le nombre maximum de ta puissance ? et d'autre part, ton résultat, tu vous voudrais l'avoir avec quelle précision ?
en effet 15%9 = 0.159 ~ 4. 10-8
c'est une vrais formule dans mon travail, et c'esst trés compliqué de faire un explication,
dans le fichier test
G3 c'est mon résultat
OK, mais ca va te servir à rien d'aller aussi loin, la puissance la plus importante qui est considérée comme non nulle par VBA est 0.15^392 et dans une formule excel ca sera 0.15^373...
Donc j'ai encore du mal à comprendre ton besoin et sa pertinence :calim2::calim2:
Ok Monsieur
Pouvez vous créer une fonction pour cette formule ?
A1 = 15%
B1 =+PUISSANCE(A1;1)-PUISSANCE(A1;2)-PUISSANCE(A1;3)-PUISSANCE(A1;4)-PUISSANCE(A1;5) ? sous VBA ?
jusqu'a puissance 5 seulement ?
j'ai crée une formule Vba comme suit :
est ce que on peu faire un code Vba plus professionel que celle ci ?Pièce jointe 600951
Code:
1
2
3
4
5 Sub Calcul() Range("B1") = Range("A1") ^ 1 - Range("A1") ^ 2 - Range("A1") ^ 3 - Range("A1") ^ 4 - Range("A1") ^ 5 - Range("A1") ^ 6 End Sub
Salut.
En Excel, tout d'abord
Pièce jointe 600982
En VBA (je n'ai pas géré les débordements):
Code:
1
2
3
4
5
6
7
8 Function kingman29(Value As Double, Limit As Long) Dim i As Long kingman29 = Value For i = 2 To Limit kingman29 = kingman29 - Value ^ i Next End Function