Passagers d’un avion (e)

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