fonction randomize

lebarbo

XLDnaute Occasionnel

• 12 Août 2010

• #2

Re : fonction randomize

Bonjour louli78,

Tu peux nous mettre tout ton code car chez moi ça fonctionne.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Août 2010

• #3

Re : fonction randomize

Bonjour louli, lebarbo

ce code fonctionne également chez moi, après voir ce qui est renvoyé dans tes variables, si ies valeurs sont bien considérées comme des nombres...

bon après midi
@+

 

Vote positif 0 Vote négatif

L

louli78

XLDnaute Nouveau

• 12 Août 2010

• #4

Re : fonction randomize

Voici ma programmation. Il manque probablement plein de choses, et le programme est surement faux dans sa globalité. On ne se moque pas je suis débutante en VBA

Sub nombres_aléatoires()

Dim i As Integer, j As Integer, k As Integer
Dim Tblo(), Rg As Range, A As Integer
Dim Mx As Integer, Mn As Integer
Dim Nb As Integer
Dim feuille As String

Mn = Range("C9").Value
Mx = Range("C10").Value
Nb = Range("Z10").Value

feuille = "risque"


'For Count = 1 To Range("Z10").Value
ReDim Tblo(1 To Nb)
Randomize
Application.ScreenUpdating = False
For i = 1 To UBound(Tblo, 1)
Tblo(i, 1) = Int((Mx - Mn + 1) * Rnd + Mn)
For k = 1 To Nb - 1
Next

End Sub

 

Vote positif 0 Vote négatif

J

jojo3008

XLDnaute Junior

• 12 Août 2010

• #5

Re : fonction randomize

Hello Louli, Pierrot , lebarbo

ya deux boucles For , et une troisième avec un guillemet qui la met en commentaire...
Puis dans ton Next il faut que tu mette Next compteur
dernière remarque dans ton dernier for il se passe rien ? Le plus simple serait que tu nous dise ce que tu veux faire exactement !

A bientot
jojo


Edit : désolé j avais oublié de dire bonjour

 

Vote positif 0 Vote négatif

L

louli78

XLDnaute Nouveau

• 12 Août 2010

• #6

Re : fonction randomize

En gros, j'ai un investissement que je veux faire varier en fonction d'un certain % de variation que l'on peut changer: je calcul les deux nouvelles valeurs d'investissement qui vont etre mon min et mon max:
Mn = Range("C9").value
Mx = Range("C10").Value
Je veux générer autant de valeurs aléatoires entre mes deux bornes (min et max) que le nombre inscrit dans la case Z10 (qui peut également etre modifiée) d'ou le Nb = Range("Z10").Value

Je ne sais pas si je suis assez claire...

 

Vote positif 0 Vote négatif

J

jojo3008

XLDnaute Junior

• 12 Août 2010

• #7

Re : fonction randomize

Re
ça me rapelle mes simulations de monte carlo
essaye ça :

Code:

Sub test()
'définit préalablement Min Max et Nb
dim i as integer
Dim tabl(Nb) as double
Randomize
For i = 1 To Nb
tabl(i) = Int((Mx - Mn + 1) * Rnd + Mn)
Next i
End Sub

Mais tu veux pas récupérer tes résultats? si tu vx t as juste a les mettre dans une cellule.

Voila j'espère que c est ca que tu voulais.
A bientot

jojo

 

Vote positif 0 Vote négatif

L

louli78

XLDnaute Nouveau

• 12 Août 2010

• #8

Re : fonction randomize

Merci merci
C'est une simulation de Monte Carlo que je fais!!! si en a deja fais une et que tu as la programmation je suis preneuse!

 

Vote positif 0 Vote négatif

J

jojo3008

XLDnaute Junior

• 12 Août 2010

• #9

Re : fonction randomize

Re,
ben dis moi ce que tu cherche exactement et je te dirais si j'ai en stock !!
par curiosité tu fais quoi comme taff?

a+
jojo

 

Vote positif 0 Vote négatif

L

louli78

XLDnaute Nouveau

• 12 Août 2010

• #10

Re : fonction randomize

Je suis en stage, et je fais des calculs de rentabilité. Du coup j'ai plein de paramètres que je vais devoir faire varier de façon complètement aléatoire pour ensuite obtenir un Taux de rentabilité interne propore a chaque sénario et ensuite réprésenter toute cette distribution de TRI en fonction des fréquences d'apparition (loi normale... blablabla). Tu as déja fais des choses comme ca?

 

Vote positif 0 Vote négatif