[E-07] Utilisation de fonctions Excel ajoutées

Bonjour tout le monde,

Je débute en VBA et je souhaite modéliser graphiquement des pertes financières. J'ai un modèle mathématique qui fonctionne. Il ne reste plus qu'à programmer.
J'ai à ce titre trouvé un pluggin pour Excel ("Simtools" et "Formula List") qui me permet d'utiliser la fonction POISINV(probabilité;espérance) de la manière suivante:

Code:

---

=POISINV(probabilité;espérance)

---

J'aimerai me servir de cette fonction dans mon programme VBA, de la même manière que l'on utilise la fonction SOMME d'Excel ici :

Code:

---

Application.WorksheetFunction.Sum(Range("A1:A3,A5"))

---

Seulement je ne sais pas s'il y a d'équivalent en Anglais étant donné que cette fonction existe grâce au pluggin.:(

Merci d'avance :mrgreen:

PS: D'ailleurs je n'arrive pas à utiliser la fonction:

Code:

---

=LOI.LOGNORMALE.INVERSE(probabilité;espérance;écart-type)

---

,

Pourtant disponible sur Excel ! Un moyen de faire migrer tout ça vers le programme VBA ?

Bonsoir.

Pour utiliser une macro complémentaire, tu peux faire

Code:

---

Application.Run "'NomFichier.xla'!NomModule.MacroComplementaire", Arg1, Arg2

---

Je sais : c'est décevant.

PGZ

Quand les fonctions sont accessibles depuis worksheetfunction
l'astuce pour retrouver le nom consiste à enregistrer bêtement une macro
en utilisant la fonction dans une feuille de calcul.

soit

Code:

---

1 2 3

Dim ret As Double, x As Double, Esp As Double, ET As Double   ret = Application.WorksheetFunction.LogNormDist(x, Esp, ET)

---

Merci à tout les deux pour vos réponses !

Deux autres petits soucis passagers :

1. Premier problème:
   Lorsque j'écris:
   
   
   Code:

   ---

   [A3] = Application.WorksheetFunction.LogInv(0.56, 6, 1)

   ---

   Excel me met bien le retour de ma fonction dans ma cellule A3
   
   En revanche, lorsque je fais:
   
   
   Code:

   ---

   1 2 3 4

   Cellcount=3 Cell = "A" & Cellcount [Cell] = Application.WorksheetFunction.LogInv(0.56, 6, 1)

   ---

   Il ne m'écrit rien dans la cellule ...
   Assez embêtant puisque je voudrai incrémenter Cellcount afin de remplir toute une colonne avec cette fonction LogInv!

1. Second problème:
   
   Code:

   ---

   [A3] = Application.WorksheetFunction.LogInv(0.56, 6, 1)

   ---

   marche, mais:
   
   Code:

   ---

   [A3] = Application.WorksheetFunction.LogInv(RAND(), 6, 1)

   ---

   ne marche pas, embêtant aussi ..Pourtant la fonction RAND() est l'équivalent anglais de ALEA() et marche bien dans d'autres cas.

Bonjour, pierrot...

:aie: tu pourrai te contenter d'une question par discussion :aie:



1/

Code:

---

ThisWorkbook.sheets("Feuil1").range("A" & Cellcount ) = "OK"

---

2/ ce n'est pas rand c'est Rnd()


tu dis quoi..

Merci c'est très sympa de ta part, ça marche très bien...
J'aurai surement d'autres questions au fur et a mesure que mon projet avancera, mais cette fois-ci je ferai en sorte de créer un autre topic!

Merci encore !:lol: