Discussion :

[Golden7B]

Bonjour, je voudrais créer une boucle dans un programme d'évaluation d'option afin de refaire le programme 100 fois, mais j'aurais également aimé que chacun des résultats (100) soient stockés au fur et a mesure dans la 2e feuille excel.....

Merci d'avance pour votre aide (voir programme en question ci bas)

=========================

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub simopt()
'Début de boucle ici
Range("d4:iv6000").ClearContents
Range("option1").ClearContents
Dim iopt1, s1, x1, rf1, q1, t1, sigma1, nsigma1, pas
Dim rnmutg, sigtg, sumg, randnsg, S1g, payoff1g, sigsum, sigmoyenne
Dim i As Integer
Dim j As Integer
iopt1 = -1
s1 = 79
x1 = 86
rf1 = 0.05
q1 = 0
t1 = 1
sigma1 = 0.27
pas = 100
nsimg1 = 115
rnmutg = (rf1 - q1 - 0.5 * sigma1 ^ 2) * (t1 / pas)
sigtg = sigma1 * Sqr(t1 / pas)
sumg = 0
For i = 1 To nsimg1
    S1g = s1
    sigsum = 0
    For j = 1 To pas
        Randomize
        randnsg = Application.NormSInv(Rnd)
        S1g = S1g * Exp(rnmutg + randnsg * sigtg)
        'Range("prix1").Offset(j - 1, i - 1) = S1g
        sigsum = sigsum + S1g
    Next j
    sigmoyenne = sigsum / pas
    'Range("prix").Offset(i - 1, 0) = sigmoyenne
    payoff1g = Application.Max(iopt1 * (sigmoyenne - x1), 0)
    'Range("cash").Offset(i - 1, 0) = payoff1g
    sumg = sumg + payoff1g
Next i
option1 = Exp(-rf1 * t1) * sumg / nsimg1
Range("option1").Value = option1                                                (Résultat à stocker)
'Fin de boucle
End Sub

[ouskel'n'or]

Bonjour Golden, bienvenue sur le forum.
Quelle variable te donne le résultat à stocker ? S1g, payoff1g ou sumg ? ou les trois ? Y a-t-il un libellé ?
A+

NB - Pense à indenter ton code pour le mettre sur le forum (tel qu'il était il était illisible) ainsi qu'à le baliser

[Jean-Philippe André]

bonjour golden 7B, et bienvenu sur DVP
je peux te proposer cette méthode (en fin de code à la place du:

Code :

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

Range("option1").Value = option1

je mettrais ceci :

Code :

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

Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Range("A65000").Row +1).Value = option1

[Golden7B]

Bonjour Golden, bienvenue sur le forum.
Quelle variable te donne le résultat à stocker ? S1g, payoff1g ou sumg ? ou les trois ? Y a-t-il un libellé ?
A+

NB - Pense à indenter ton code pour le mettre sur le forum (tel qu'il était il était illisible) ainsi qu'à le baliser

Daccord (quelle est la différence entre identer et baliser?) merci

variable = Range("option1").Value = option1

[Golden7B]

bonjour golden 7B, et bienvenu sur DVP
je peux te proposer cette méthode (en fin de code à la place du:

Code :

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

Range("option1").Value = option1

je mettrais ceci :

Code :

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

Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Range("A65000").Row +1).Value = option1

daccord, merci je vais essayer ca, et pour la boucle j'en fais une normal : ex.:
For e = 1 to 100, etc..?

merci

[ouskel'n'or]

Quelle est la différence entre identer et baliser?

Indenter revient à placer une marge dans ton code situé à l'intérieur d'une boucle. Je l'ai fait pour toi dans la boucle For... Next, jète un oeil
Baliser ton code permet de le reproduire tel qu'il est dans ton module. En mode d'édition, quand tu rédiges ton message, il y a plein de boutons en dessus de la zone de texte. Pour baliser ton code, tu le sélectionnes et tu fais un clic sur l'icône #. Pour citer une réponse, soit tu utilises le bouton "Citer" en bas de la réponse que l'on t'a donnée, soit tu encadres la copie de la partie de la réponse que tu veux citer des balises [ QUOTE ] et [ /QUOTE ] (sans espace) icône texte dans une bulle.
Ne t'inquiète pas, ça vient vite

Pour la réponse précédente, je doute... Je n'ai pas vu que tu voulais placer le résultat à partir de la ligne 65000

A part ça, je n'ai pas vu de réponse à mes questions

Enfin, quand tu fais "variable = Range("option1").Value = option1" tu veux une réponse Vrai ou faux ? variable est un boolean ?
A+

[Golden7B]

Pour la réponse précédente, je doute... Je n'ai pas vu que tu voulais placer le résultat à partir de la ligne 65000

Non effectivement, je veux que ce soit dans les cellules A1 à A100 (bref, 100 résultats indépendants....)

A part ça, je n'ai pas vu de réponse à mes questions

La seul variable qui m'intéresse est vraiment la valeur de "option1"

Enfin, quand tu fais "variable = Range("option1").Value = option1" tu veux une réponse Vrai ou faux ? variable est un boolean ?
A+

Je suis désolé, je ne sais pas ce qu'est un boolean, mais je veux la valeur de option 1 (un chiffre) et par la suite, réinitialiser le programme au complet.... donc refaire le programme 100 fois indépendamment des résultats donnés.......(pour par la suite créer une distribution des résultats trouvés....)

[Jean-Philippe André]

elle le prend déjà en compte, mais si tu as déjà une valeur dans la cellule A151, tu vas l'écraser à chaque fois, le principe étant de partir d'une valeur très grande pour être sur de ne pas finir par écraser les cellules.

[Golden7B]

elle le prend déjà en compte, mais si tu as déjà une valeur dans la cellule A151, tu vas l'écraser à chaque fois, le principe étant de partir d'une valeur très grande pour être sur de ne pas finir par écraser les cellules.

Ok, mais moi, techniquement, je voudrais n'avoir qu'à rouler mon programme une seule fois et par la suite, retrouver 100 résultats dans les cellules A1 à A100...

Merci

[Jean-Philippe André]

J'ai bien compris, le principe de cette ligne

Code :

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

Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Range("A65000").Row +1).Value = option1

est de mettre le résultat option1 dans la premiere ligne vide de la colonne A, ça n'a rien à voir avec le fait d'avoir 1 ou 8000 traitements.
Si tu fais 100 traitements, tu fais directement

Code :

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

Worksheets("feuil2!").Range("A" & i).Value = option1

[Golden7B]

Ok, mais mon prob, c'est que avec ta première suggestion, il ne met que un seul résultat dans la cellule A65001...

[Pierre Fauconnier]

bonjour

Il y a au moins deux problèmes dans ton code.

Le premier, c'est que la ligne qui attribue la valeur Option1 à une cellule est en dehors de la boucle. Il y a donc peu de chances que tu récupères plusieurs valeurs.
Le second, c'est qu'il faut demander à Excel d'aller chercher la dernière cellule non vide en commençant par le bas, puis de décaler d'une ligne vers le bas. C'est pourquoi je te propose de placer, en A1 de Feuil2, le texte "Option 1". La fin de la boucle telle que je te la donne plus bas placera les résultats en A2... jusque A101, si ta boucle renvoie 100 résultats, pour autant qu'il n'y ait aucune cellule remplie en dessous de A1.

La ligne

Code :

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

next i

devrait se trouver juste avant la ligne

Code :

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

end sub

La fin de la boucle devrait être ceci

Code :

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

1
2
3
4
5
6
 
        sumg = sumg + payoff1g
        option1 = Exp(-rf1 * t1) * sumg / nsimg1
        worksheets("feuil2").range("a" & rows.count).end(xlup)(2) = option1
    next i
end sub

Dans ce code, la ligne

Code :

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

worksheets("feuil2").range("a" & rows.count).end(xlup)(2) = option1

va placer le résultat dans la cellule vide qui suit la dernière cellule remplie de la colonne. Donc, à chaque boucle, la valeur est placée une cellule plus bas. Cette solution te permet de ne pas devoir adapter ton code si tu décides de boucler 200 fois ou 1000 fois.

Si tu lances ton programme plusieurs fois et que tu veux écraser tes résultats précédents, il te suffit de mettre

Code :

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

worksheets("feuil2").range("a2:a" & rows.count).clearcontents

en début de procédure, avant le début de la boucle sur i. Cette solution est également applicable quel que soit le nombre de boucles.

Ok?

[ouskel'n'or]

Désolé, j'ai dû m'absenter. Comme Pierre t'a répondu, je me contenterai de te parler des booléens... à défaut de t'aider
Si tu mets -> variable = Range("option1").Value = option1 (tu as compris ce que tu dois mettre à la place) c'est comme si tu disais
Si (Range("option1").Value = option1) alors Variable = vrai
Et ce n'est pas ce que tu veux
A toutes fins utiles
A+

[Golden7B]

Merci beaucoup Pierre, ça fonctionne très bien!! Merci aussi à tous les autres pour votre aide.

*Pour la boucle Next i, il faut bel et bien qu'elle soit avant la valeur d'option 1. En effet, ce programme est une simulation de MonteCarlo et donc il nécessite 2 boucles, soit une pour le nombre d'itérations (i) et une pour le nombre de pas (j).

Donc ma troisième boucle (j'ai pris next e placé après la valeur d'option 1) est seulement pour refaire cette simulation 100 fois.... (le fait que le nombre de pas et mon nombre choisi de simulation soit les deux = à 100 peu porter à confusion....)

Merci encore pour votre aide et ce n'est certainement pas la dernière fois que je vais la solliciter!!

[Pierre Fauconnier]

Ok. Je n'avais pas compris la signification du

Code :

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

' fin de boucle

Tant mieux si tout fonctionne. A bientôt sur nos forums

[Pierre Fauconnier]

J'ai bien compris, le principe de cette ligne

Code :

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

Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Range("A65000").Row +1).Value = option1

est de mettre le résultat option1 dans la premiere ligne vide de la colonne A...

Non, cette ligne place la valeur de Option1 dans la cellule A65001 de la feuille "Feuil2", sans qu'il y ait aucune incrémentation...

[Jean-Philippe André]

il fallait bien sûr lire

Code :

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

Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Range("A65000").End(XlUp).Row +1).Value = option1