Discussion :

[lepierrot]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

,

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

[pgz]

Bonsoir.

Pour utiliser une macro complémentaire, tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je sais : c'est décevant.

PGZ

[DarkVader]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lepierrot]

Merci à tout les deux pour vos réponses !

[lepierrot]

Deux autres petits soucis passagers :

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

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   [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 :

   Sélectionner tout - Visualiser dans une fenêtre à part

   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 :

   Sélectionner tout - Visualiser dans une fenêtre à part

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

   marche, mais:
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   [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.

[JackOuYA]

Bonjour, pierrot...

tu pourrai te contenter d'une question par discussion



1/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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


tu dis quoi..

[lepierrot]

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 !