Maintenant
que nous avons un modèle qui simule parfaitement le remplissage d’un avion, il
ne reste plus qu’à simuler un grand nombre de remplissages pour voir quelle est
– en moyenne – la probabilité pour que le 100ème passager puisse
occuper la place qui lui était réservée.
Voici
à quoi ressemble le modèle final. La macro présentée dans l’article précédent
se lance avec le bouton « 1 scénario ». La macro de simulation complète se lance avec
le bouton « Simulation ». Elle fait 10 boucles de 100 itérations dont
les résultats sont affichés en Y2:Y101, puis stocke le résultat en colonne Z.
Enfin, Z13 affiche la moyenne ainsi obtenue sur 1.000
remplissages de l’avion.
Voici
le code de la macro :
Sub Simulation()
'
' Auteur : Hervé Thiriez
'
Dim I As Integer
Dim K As Integer
Dim L As Integer
Range("V2:V11").ClearContents
For L = 1 To 10
Range("Y2:Y101").ClearContents
Application.ScreenUpdating = False
For K = 1 To 100
Range("A1") = 1
Calculate
For I = 2 To 19
Range("A1") = I
Calculate
Next I
Cells(K + 1, 25) =
Range("Rés")
Next K
Cells(L + 1, 26) = Range("Pct").Value
Application.StatusBar
= "Fin du traitement n°" & L
Application.ScreenUpdating = True
Next L
Application.ScreenUpdating = True
Application.StatusBar = ""
Calculate
End Sub
On
obtient donc le résultat moyen de 50%. Notez qu’il est important de reproduire
les colonnes F:G jusqu’à V:W. En effet, au début, je m’étais arrêté 4 colonnes
plus tôt et j’obtenais alors un résultat moyen de plus de 60% !
Et voilà ! Nous avons trouvé la solution de l'énigme :)
Aucun commentaire:
Enregistrer un commentaire