Discussion :

[lolo92130]

Bonjour tout le monde,
je suis nouveau et pas très bon en macro.
la finalité de mon programme est de faire un montecarlo en 50,000 chemin, sachant que "D2" est une moyenne de plusieurs cellules qui sont elles mêmes des alea entre borne (moyenne - ecartype ; moyenne + ecart type)
mais pour faire du 50,000 chemins, ca prend beaucoup trop de temps (je souhaite en effet avoir la moyenne des moyennes collées en valeur + le min + le max + l'écart type des 50,000 tirages
pensez vous qu'il est possible d'avoir un code permetant d'avoir un résultat plus rapide?

merci pour votre aide
voici mon programme:

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
Private Sub CommandButton1_Click()
    Columns("A:B").Select
    Selection.ClearContents
    Range("A2").Select
    Dim numero As Integer, chemin As Integer
    numero = 1
    chemin = Cells(4, 6)
    While numero <= chemin
           Cells(numero, 1) = numero
       Range("D2").Select
    Selection.Copy
       Cells(numero, 2).Select
    Selection.PasteSpecial Paste:=xlPasteValues
       numero = numero + 1
    Wend
 
 
End Sub

[Philippe Tulliez]

Bonjour,
Sans VBA, tu peux utiliser la fonction ALEA.ENTRE.BORNES mais si tu veux absolument utiliser le VBA voici un petit exemple

Code :

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

1
2
3
4
5
6
Sub t()
 With ThisWorkbook.Worksheets("Feuil1").Range("A2:A50000")
 .Formula = "=RANDBETWEEN(10,10000)"
 .Value = .Value
 End With
End Sub

Comme c'est une fonction volatile il faudra peut-être se placer en mode de calcul manuel si on utilise des imbrications importantes avec ALEA.ENTRE.BORNES

[lolo92130]

Bonjour Philippe,
merci pour cette réponse, mais j'ai du mal exprimer mon problème
en fait la cellule "D2" va chercher une moyenne d'aléas
chaque aléa a ses propres paramètres (moyenne et écart type)
je cherche donc à déterminer la moyenne et l'écart type en faisant 50,000 simulations sur cette moyenne d'aléas

[halaster08]

Bonjour,

Dans un premier temps pour améliorer la rapidité de ta macro je te conseillerais les actions suivantes:
-Virer tout les select:

Code :

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

1
2
Columns("A:B").Select
    Selection.ClearContents

S'écrit directement:

Code :

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

Columns("A:B").ClearContents

-désactiver l'affichage:

Code :

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

1
2
3
application.screenupdating = false
'ton code
application.screenupdating = false

- ne pas utiliser le copier le coller:

Code :

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

1
2
3
4
    While numero <= chemin
       Cells(numero, 2).value= Cells(numero, 1).value
       numero = numero + 1
    Wend

Maintenant si tout ces changements ne suffisent pas, tu peux aussi essayer de passer par des variables tableaux pour stocker tes résultats, c'est normalement plus rapide que de passer par des cellules (cf le tuto:https://silkyroad.developpez.com/vba/tableaux/)

[lolo92130]

Hello halaster08
merci beaucoup pour ce code
j'ai juste modifié cette partie de ton code proposé pour que ca vienne prendre la bonne cellule:

code:

Code :

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

Cells(numero, 2).Value = Cells(2, 4).Value

du coup le 10,000 chemins a pris un peu moins d'1 mn, ce qui est bien plus performant (avant le 5,000 chemins prenait 5 minutes au minimum)

je regarderais plus tard ton lien de tableau

merci encore pour ton aide

"Humanum fuit errare, diabolicum est per animositatem in errore manere"