Monsieur Excel
Pour tout savoir faire sur Excel !

04 août 2017

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