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...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 6.8 Créer une classe avec un événement de classe
Suivant
Corrigé 6.10 Déclencher l’événement de classe