Corrigé 6.9 Utiliser la classe créée

Attention ! Ce code est implanté dans un module de feuille.

Option Explicit 
Private WithEvents maMustang As FordMustang 
Sub TestClasseMustang() 
    Dim variationVitesse As String 
 
    ' Instanciation d'un objet de la classe FordMustang 
    Set maMustang = New FordMustang 
    With maMustang 
        '.Puissance = 200 ' erreur car propriété en lecture seule 
        .Immatriculation = InputBox("Quelle est l'immatriculation 
de cette merveille ?") 
        MsgBox Prompt:="La Ford Mustang immatriculée " & .Immatriculation & " 
est prête à démarrer" 
 
        ' Boucle sur les changements de vitesse 
        Do While True 
            variationVitesse...